home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / gfx / fract / FlashMandel.lha / FlashMandel / Sources / FlashMandel.c < prev    next >
C/C++ Source or Header  |  1999-01-22  |  135KB  |  4,045 lines
  1. /*******************************************************************************
  2. **
  3. **  Coded by Dino Papararo              22-Jan-1999
  4. **
  5. *******************************************************************************/
  6.  
  7. #define __USE_SYSBASE
  8.  
  9. #include <stdio.h>
  10. #include <stdlib.h>
  11. #include <string.h>
  12. #include <proto/exec.h>
  13. #include <proto/dos.h>
  14. #include <proto/intuition.h>
  15. #include <proto/diskfont.h>
  16. #include <proto/graphics.h>
  17. #include <proto/gadtools.h>
  18. #include <proto/utility.h>
  19. #include <proto/iffparse.h>
  20. #include <proto/icon.h>
  21. #include <proto/asl.h>
  22. #include <exec/execbase.h>
  23. #include <exec/memory.h>
  24. #include <intuition/intuition.h>
  25. #include <intuition/gadgetclass.h>
  26. #include <graphics/gfxbase.h>
  27. #include <graphics/videocontrol.h>
  28. #include <graphics/scale.h>
  29. #include <iffp/ilbmapp.h>
  30. #include <devices/prtbase.h>
  31. #include <devices/printer.h>
  32.  
  33.  
  34.  
  35. /* To compile the FPU versions uncomment next line */
  36. #define __USE_FPU
  37.  
  38.  
  39. #ifdef __USE_FPU
  40. #include <m68881.h>
  41. #else
  42. #include <mieeedoub.h>
  43. #endif
  44.  
  45. #define FPU_68K 1 << 1L
  46. #define FPU_PPC 1 << 2L
  47.  
  48. #define VERSION  "FlashMandel 1.4 "
  49. #define AUTHOR   "Dino Papararo"
  50. #define DATE     __AMIGADATE__
  51. #define COPYRIGHT "©1997-98"
  52. #define ADDRESS  "Via Manzoni, 184\n  80123 Napoli\n  Italia"
  53. #define EMAIL    "E-Mail address:\n\n  DinoP@IName.Com\n\n"
  54.  
  55. #define INIT_DEF_RMIN      -2.2
  56. #define INIT_DEF_RMAX      +0.8
  57. #define INIT_DEF_IMIN      -1.125
  58. #define INIT_DEF_IMAX      +1.125
  59. #define INIT_DEF_RMINSTR   "-2.2"
  60. #define INIT_DEF_RMAXSTR   "+0.8"
  61. #define INIT_DEF_IMINSTR   "-1.125"
  62. #define INIT_DEF_IMAXSTR   "+1.125"
  63.  
  64. #define DEF_WIDTH        640
  65. #define DEF_HEIGHT       480
  66. #define DEF_DEPTH        4
  67. #define DEF_MONITOR      0x40d20001
  68. #define DEF_MONITORSTR  "0x40d20001"
  69. #define DEF_FONTNAME    "topaz.font\0"
  70. #define DEF_FONTSIZE     8
  71. #define DEF_STARTPRI    -3
  72.  
  73. #define MIN_WIDTH  640
  74. #define MIN_HEIGHT 480
  75. #define MAX_WIDTH  16368
  76. #define MAX_HEIGHT 16384
  77. #define MIN_DEPTH  3
  78. #define MAX_DEPTH  8
  79.  
  80. #define MAX_FONTSIZE 24
  81. #define MIN_FONTSIZE 8
  82.  
  83. #define MIN_ITERATIONS 31
  84.  
  85. #define RESERVED_PENS 4L
  86.  
  87. #define TOBLACK   1
  88. #define FROMBLACK 0
  89.  
  90. #define RAW_ESC      0x045
  91. #define VAN_ESC      0x01B
  92. #define TAB          0x042
  93.  
  94. #define FIXED_POINT      (28L)                /* Bit di Precisione */
  95. #define MAX_POT          (1L << FIXED_POINT)  /*   2^FIXED_POINT   */
  96.  
  97. #define MINLIMIT 2
  98.  
  99. #define BLACK      (0)
  100. #define LIGHT_GREY (2)
  101. #define WHITE      (1)
  102. #define DARK_GREY  (3)
  103.  
  104. #define POINTS       4
  105. #define PAIRS        5
  106.  
  107. #define MYSECS       (50L * 2L) /* 2 secondi */
  108.  
  109. #define SHIFTRIGHT   FALSE
  110. #define SHIFTLEFT    TRUE
  111.  
  112. #define INITIALZOOM  14
  113.  
  114. #define CLEAR_POINTER 0
  115. #define BUSY_POINTER  1
  116. #define ZOOM_POINTER  2
  117.  
  118. #define ZPW          15
  119. #define ZPH          15
  120. #define ZPXO         -8
  121. #define ZPYO         -7
  122.  
  123. #define MAXCHARS     20
  124.  
  125. #define ACCEPT       (1)
  126. #define RATIO        (2)
  127. #define RESET        (3)
  128. #define CANCEL       (4)
  129. #define KEEP         (5)
  130.  
  131. #define WMASK  0x1
  132. #define FMASK  0x2
  133. #define VMASK  0x4
  134. #define SMASK  0x8
  135. #define BMASK  0x10
  136. #define ZMASK  0x20
  137. #define TMASK  0x40
  138.  
  139. #define SPREAD_BIT   (1L << 16)
  140. #define REPEATED_BIT (1L << 17)
  141. #define TRUE_BIT     (1L << 18)
  142. #define INTEGER_BIT  (1L << 19)
  143. #define REAL_BIT     (1L << 21)
  144. #define PPC_BIT      (1L << 22)
  145. #define TITLE_BIT    (1L << 20)
  146.  
  147. #define LOADPICTURE_MSG 0x1
  148. #define SAVEPICTURE_MSG 0x2
  149. #define DUMP_MSG        0x4
  150. #define REDRAW_MSG      0x8
  151. #define UNDO_MSG        0x10
  152. #define DRAW_MSG        0x20
  153. #define PREVIEW_MSG     0x40
  154. #define NEWDISPLAY_MSG  0x80
  155. #define STOP_MSG        0x100
  156. #define EXIT_MSG        0x200
  157. #define COORDS_MSG      0x400
  158. #define ITER_MSG        0x800
  159. #define ABOUT_MSG       0x1000
  160. #define TITLE_MSG       0x2000
  161. #define TIME_MSG        0x4000
  162. #define PALETTE_MSG     0x8000
  163. #define CYCLERIGHT_MSG  0x10000
  164. #define CYCLELEFT_MSG   0x20000
  165. #define DELAY_MSG       0x40000
  166. #define COLOR_MSG       0x80000
  167. #define LOADPALETTE_MSG 0x100000
  168. #define SAVEPALETTE_MSG 0x200000
  169. #define FONTREQ_MSG     0x400000
  170.  
  171. #define PICTURES_DRAWER 0
  172. #define PALETTES_DRAWER 1
  173.  
  174. #define IDCMP_STANDARD  IDCMP_CLOSEWINDOW|IDCMP_RAWKEY|IDCMP_MOUSEBUTTONS|IDCMP_MOUSEMOVE|IDCMP_MENUPICK
  175.  
  176. #define WFLG_STANDARD WFLG_ACTIVATE|WFLG_BACKDROP|WFLG_NOCAREREFRESH|WFLG_SMART_REFRESH|WFLG_BORDERLESS|WFLG_REPORTMOUSE|WFLG_NEWLOOKMENUS
  177.  
  178. #define TEXT_ALERT_POS  "\x00\x90\x10 FlashMandel message: "
  179.  
  180. #define MODE_ID_MASK (LACE|HIRES|HAM|EXTRA_HALFBRITE)
  181.  
  182. #define ID_MAND MAKE_ID('M','A','N','D')
  183.  
  184. struct MandelChunk { WORD LeftEdge,TopEdge,Width,Height;
  185.                      long double RMin,RMax,IMin,IMax;
  186.                      long double RConst,IConst;
  187.                      ULONG Iterations;
  188.                      ULONG Special;
  189.                    };
  190.  
  191. IMPORT struct ExecBase *SysBase;
  192.  
  193. TEXT VERSION_STRING [] = "\0$VER: " VERSION DATE "\r\n by " AUTHOR;
  194.  
  195. TEXT MYFILE [25],PICTURESDIR [220],PALETTESDIR [220],MYPATH [246],BAR_STRING [80],*MYDIR = NULL;
  196.  
  197. BOOL SPREAD = TRUE,DEPTH_CHANGED;
  198.  
  199. WORD ZOOMLINE [PAIRS << 1] , MAX_ITERATIONS = 319,RETURNVALUE = 0;
  200.  
  201. UWORD ITERATIONS;
  202.  
  203. LONG PRIORITY = DEF_STARTPRI,DELAY = 5L,__oslibversion = 38L;
  204.  
  205. ULONG MASK = TMASK;
  206.  
  207. ULONG ELAPSEDTIME = NULL,CURRENT_MAX_COLORS;
  208.  
  209. long double RMIN=INIT_DEF_RMIN,RMAX=INIT_DEF_RMAX,IMIN=INIT_DEF_IMIN,IMAX=INIT_DEF_IMAX;
  210.  
  211. long double DEF_RMIN,DEF_RMAX,DEF_IMIN,DEF_IMAX,URMIN,URMAX,UIMIN,UIMAX;
  212.  
  213. long double FACTOR=0.0,INCREMREAL=0.0,INCREMIMAG=0.0,CRE=0.0,CIM=0.0;
  214.  
  215. ULONG *PALETTE;
  216.  
  217. CPTR *VINFO = NULL;
  218.  
  219. WORD (*FUNCTION) (WORD,long double,long double);
  220.  
  221. VOID (*V_LINE) (struct RastPort *,const LONG,const LONG,const LONG);
  222.  
  223. VOID (*H_LINE) (struct RastPort *,const LONG,const LONG,const LONG);
  224.  
  225. UBYTE *OpenDisplayError       = TEXT_ALERT_POS "I need at least 8 colors, sorry." "\x00";
  226. UBYTE *FontError              = TEXT_ALERT_POS "Font failed" "\x00";
  227. UBYTE *NoMonitor              = TEXT_ALERT_POS "No monitor" "\x00";
  228. UBYTE *NoChips                = TEXT_ALERT_POS "No chips" "\x00";
  229. UBYTE *NoMem                  = TEXT_ALERT_POS "No mem" "\x00";
  230. UBYTE *NoChipMem              = TEXT_ALERT_POS "No chipmem" "\x00";
  231. UBYTE *PubNotUnique           = TEXT_ALERT_POS "Pub not unique" "\x00";
  232. UBYTE *UnknownMode            = TEXT_ALERT_POS "Unknown mode" "\x00";
  233. UBYTE *ScreenTooDeep          = TEXT_ALERT_POS "Screen too deep" "\x00";
  234. UBYTE *AttachScreen           = TEXT_ALERT_POS "Attach screen failed" "\x00";
  235. UBYTE *ModeNotAvailableError  = TEXT_ALERT_POS "Mode not available" "\x00";
  236. UBYTE *UnknownScrError        = TEXT_ALERT_POS "Unknown screen error" "\x00";
  237. UBYTE *VisualInfoError        = TEXT_ALERT_POS "Visualinfo failed" "\x00";
  238. UBYTE *WindowError            = TEXT_ALERT_POS "Openwindow failed" "\x00";
  239. UBYTE *MenuError              = TEXT_ALERT_POS "Menu failed" "\x00";
  240. UBYTE *GadgetError            = TEXT_ALERT_POS "Gadget error" "\x00";
  241. UBYTE *WindowGadgetError      = TEXT_ALERT_POS "Window gadget error" "\x00";
  242. UBYTE *PreviewWindowError     = TEXT_ALERT_POS "Preview window failed" "\x00";
  243. UBYTE *CreateDisplayError     = TEXT_ALERT_POS "Createdisplay error" "\x00";
  244. UBYTE *DimensionInfoError     = TEXT_ALERT_POS "Dimensioninfo error" "\x00";
  245. UBYTE *DisplayInfoError       = TEXT_ALERT_POS "Displayinfo error" "\x00";
  246. UBYTE *PaletteRequesterError  = TEXT_ALERT_POS "Palette requester error" "\x00";
  247. UBYTE *MakeDisplayError       = TEXT_ALERT_POS "Display error" "\x00";
  248. UBYTE *QueryMandPicError      = TEXT_ALERT_POS "Not a FlashMandel picture !" "\x00";
  249. UBYTE *LoadMandPicError       = TEXT_ALERT_POS "Load picture error" "\x00";
  250. UBYTE *SaveMandPicError       = TEXT_ALERT_POS "Save picture error" "\x00";
  251. UBYTE *LoadMandPalError       = TEXT_ALERT_POS "Load palette error" "\x00";
  252. UBYTE *SaveMandPalError       = TEXT_ALERT_POS "Save palette error" "\x00";
  253.  
  254. VOID   PutPointer    (struct Window *,UWORD *,LONG,LONG,LONG,LONG,UBYTE);
  255. VOID   ClipIt        (WORD,WORD,struct Rectangle *,struct Rectangle *,struct Rectangle *,struct Rectangle *,struct Rectangle *,struct Rectangle *,BOOL);
  256. ULONG  ModeFallBack  (ULONG,WORD,WORD,WORD);
  257. LONG   About         (struct Window *);
  258. LONG   Choice        (struct Window *,TEXT *,TEXT *);
  259. LONG   CheckGFX      (VOID);
  260. BOOL   CheckEHB      (ULONG);
  261. UBYTE  GetMaxPlanes  (ULONG);
  262. ULONG  CheckFPU      (UWORD);
  263. VOID   AdjustRatio   (long double *,long double *,long double *,long double *,WORD,WORD,BOOL);
  264. WORD   Integer       (WORD,long double,long double);
  265. WORD   Real          (WORD,long double,long double);
  266. VOID   ShowTime      (struct Window *,TEXT *,ULONG);
  267. ULONG  IntegerGad    (struct Window *,TEXT *,TEXT *,TEXT *,ULONG);
  268. VOID   CloseDisplay  (struct ILBMInfo *,CPTR *);
  269. LONG   MakeDisplay   (struct ILBMInfo *);
  270. VOID   VLine_R_EHB   (struct RastPort *,const LONG,const LONG,const LONG);
  271. VOID   HLine_R_EHB   (struct RastPort *,const LONG,const LONG,const LONG);
  272. VOID   VLine_S_EHB   (struct RastPort *,const LONG,const LONG,const LONG);
  273. VOID   HLine_S_EHB   (struct RastPort *,const LONG,const LONG,const LONG);
  274. VOID   VLine_R       (struct RastPort *,const LONG,const LONG,const LONG);
  275. VOID   HLine_R       (struct RastPort *,const LONG,const LONG,const LONG);
  276. VOID   VLine_S       (struct RastPort *,const LONG,const LONG,const LONG);
  277. VOID   HLine_S       (struct RastPort *,const LONG,const LONG,const LONG);
  278. BOOL   CheckBox      (struct RastPort *,const LONG,const LONG,const LONG,const LONG);
  279. BOOL   Rectangle     (struct Window *,const LONG,const LONG,const LONG,const LONG);
  280. BOOL   NewCoords     (struct Window *,WORD,WORD,WORD,WORD);
  281. BOOL   DrawFrame     (struct Window *,WORD,WORD,WORD,WORD);
  282. ULONG  DrawFractal   (struct Window *,const LONG,const LONG,const LONG,const LONG);
  283. BOOL   Preview       (struct Window *,WORD,WORD);
  284. BOOL   ShowCoords    (struct Window *);
  285. VOID   RestoreCoords (VOID);
  286. VOID   SaveCoords    (VOID);
  287. BOOL   FileRequest   (struct Window *,TEXT *,TEXT *,BOOL,BOOL);
  288. BOOL   FontRequest   (struct Window *);
  289. BOOL   SMRequest     (struct ILBMInfo *);
  290. VOID   SetMenuStart  (struct Window *);
  291. VOID   SetMenuStop   (struct Window *);
  292. ULONG  ProcessMenu   (struct Window *,UWORD);
  293. VOID   ProcessMouse  (struct Window *,WORD,WORD);
  294. ULONG  HandleEvents  (struct ILBMInfo *);
  295. LONG   WinDump       (struct Window *);
  296. ULONG  Fail          (UBYTE *,ULONG);
  297. BOOL   PasteBitMap   (struct BitMap *,struct Window *,WORD,WORD);
  298. LONG   main          (ULONG,UBYTE **);
  299.  
  300. static ULONG __saveds __asm SMFilterFunc (register __a0 struct Hook *,register __a2 struct ScreenModeRequester *,register __a1 ULONG);
  301.  
  302. struct Screen *OpenIdScreen (struct ILBMInfo *,WORD,WORD,WORD,ULONG);
  303. struct Window *OpenDisplay  (struct ILBMInfo *,WORD,WORD,WORD,ULONG);
  304. struct BitMap *CopyBitMap   (struct Window *,WORD,WORD,WORD,WORD);
  305.  
  306. struct Hook         SMFILTERHOOK      = {NULL,NULL,(VOID *) SMFilterFunc,NULL};
  307.  
  308. struct Border       MYBORDER          = {0,0,0,0,COMPLEMENT,PAIRS,ZOOMLINE,0};
  309.  
  310. struct TextAttr     MYFONTSTRUCT      = {"topaz.font\0             ",8,FS_NORMAL,FPF_DISKFONT};
  311.  
  312. struct NewGadget    TEXTGAD           = {0,0,0,0,0,&MYFONTSTRUCT,0,0,0,0};
  313.  
  314. struct NewGadget    BUTTONGAD         = {0,0,0,0,0,&MYFONTSTRUCT,0,0,0,0};
  315.  
  316. struct NewGadget    CHECKBOXGAD       = {0,0,0,0,0,&MYFONTSTRUCT,0,0,0,0};
  317.  
  318. struct BitScaleArgs BSA               = {0,0,0,0,0,0,0,0,0,0,0,0,NULL,NULL,NULL,0,0,NULL,NULL};
  319.  
  320. struct Chunk        COPYRIGHT_CHUNK   = {NULL,ID_ILBM,ID_Copyright,IFFSIZE_UNKNOWN,"\n\n" VERSION COPYRIGHT " by " AUTHOR "\n\n"};
  321.  
  322. struct Chunk        SPECIAL_CHUNK     = {NULL,ID_ILBM,ID_MAND,sizeof (struct MandelChunk),NULL};
  323.  
  324. UWORD PENS [] = {BLACK,DARK_GREY,WHITE,WHITE,DARK_GREY,LIGHT_GREY,DARK_GREY,LIGHT_GREY,DARK_GREY,WHITE,LIGHT_GREY,DARK_GREY,(UWORD) ~0};
  325.  
  326. /*
  327.  
  328. 01    0 DETAILPEN             SFONDO
  329. 02    1 BLOCKPEN              TESTO
  330. 03    1 TEXTPEN               TESTO EVIDENZIATO
  331. 04    2 SHINEPEN              BORDI CHIARI
  332. 05    1 SHADOWPEN             BORDI SCURI
  333. 06    3 FILLPEN               BARRA TITOLO FINESTRE ATTIVE
  334. 07    1 FILLTEXTPEN           TITOLO FINESTRE ATTIVE
  335. 08    0 BACKGROUNDPEN
  336. 09    2 HIGHLIGHTTEXTPEN
  337.  
  338. 10    1 BARDETAILPEN          TESTO NEI MENU
  339. 11    2 BARBLOCKPEN           SFONDO NEI MENU
  340. 12    1 BARTRIMPEN
  341.  
  342. */
  343.  
  344. ULONG COLORS_ECS [] = {32L << 16L,
  345.                        0x00000000,0x00000000,0x00000000,
  346.                        0xFFFFFFFF,0xFFFFFFFF,0xFFFFFFFF,
  347.                        0xAAAAAAAA,0xAAAAAAAA,0xAAAAAAAA,
  348.                        0x66666666,0x66666666,0x66666666,
  349.                        0xFFFFFFFF,0xFFFFFFFF,0xFFFFFFFF,
  350.                        0xBBBBBBBB,0xBBBBBBBB,0xBBBBBBBB,
  351.                        0x77777777,0x77777777,0x77777777,
  352.                        0x33333333,0x33333333,0x33333333,
  353.                        0x33333333,0x33333333,0x00000000,
  354.                        0x77777777,0x77777777,0x00000000,
  355.                        0xBBBBBBBB,0xBBBBBBBB,0x00000000,
  356.                        0xFFFFFFFF,0xFFFFFFFF,0x00000000,
  357.                        0x00000000,0xFFFFFFFF,0x00000000,
  358.                        0x00000000,0xBBBBBBBB,0x00000000,
  359.                        0x00000000,0x77777777,0x00000000,
  360.                        0x00000000,0x33333333,0x00000000,
  361.                        0x33333333,0x00000000,0x33333333,
  362.                        0x77777777,0x00000000,0x77777777,
  363.                        0xBBBBBBBB,0x00000000,0xBBBBBBBB,
  364.                        0xFFFFFFFF,0x00000000,0xFFFFFFFF,
  365.                        0xFFFFFFFF,0x00000000,0x00000000,
  366.                        0xBBBBBBBB,0x00000000,0x00000000,
  367.                        0x77777777,0x00000000,0x00000000,
  368.                        0x33333333,0x00000000,0x00000000,
  369.                        0x00000000,0x33333333,0x33333333,
  370.                        0x00000000,0x77777777,0x77777777,
  371.                        0x00000000,0xBBBBBBBB,0xBBBBBBBB,
  372.                        0x00000000,0xFFFFFFFF,0xFFFFFFFF,
  373.                        0x00000000,0x00000000,0xFFFFFFFF,
  374.                        0x00000000,0x00000000,0xBBBBBBBB,
  375.                        0x00000000,0x00000000,0x77777777,
  376.                        0x00000000,0x00000000,0x33333333,
  377.                        NULL};
  378.  
  379. ULONG COLORS_AGA []  =  {256L << 16L,
  380.                          0x00000000,0x00000000,0x00000000, 0xFFFFFFFF,0xFFFFFFFF,0xFFFFFFFF, 0xAAAAAAAA,0xAAAAAAAA,0xAAAAAAAA, 0x66666666,0x66666666,0x66666666,
  381.                          0x9f9f9f9f,0x9f9f9f9f,0x9f9f9f9f, 0xafafafaf,0xafafafaf,0xafafafaf, 0xbfbfbfbf,0xbfbfbfbf,0xbfbfbfbf, 0xcfcfcfcf,0xcfcfcfcf,0xcfcfcfcf,
  382.                          0xdfdfdfdf,0xdfdfdfdf,0xdfdfdfdf, 0xefefefef,0xefefefef,0xefefefef, 0xdfdfdfdf,0xefefefef,0xffffffff, 0xcfcfcfcf,0xdfdfdfdf,0xefefefef,
  383.                          0xbfbfbfbf,0xcfcfcfcf,0xdfdfdfdf, 0xafafafaf,0xbfbfbfbf,0xcfcfcfcf, 0x9f9f9f9f,0xafafafaf,0xbfbfbfbf, 0x8f8f8f8f,0x9f9f9f9f,0xafafafaf,
  384.                          0x7f7f7f7f,0x8f8f8f8f,0x9f9f9f9f, 0x6f6f6f6f,0x7f7f7f7f,0x8f8f8f8f, 0x5f5f5f5f,0x6f6f6f6f,0x7f7f7f7f, 0x4f4f4f4f,0x5f5f5f5f,0x6f6f6f6f,
  385.                          0x3f3f3f3f,0x4f4f4f4f,0x5f5f5f5f, 0x2f2f2f2f,0x3f3f3f3f,0x4f4f4f4f, 0x1f1f1f1f,0x2f2f2f2f,0x3f3f3f3f, 0x0f0f0f0f,0x1f1f1f1f,0x2f2f2f2f,
  386.                          0x00000000,0x0f0f0f0f,0x1f1f1f1f, 0x1f1f1f1f,0x0f0f0f0f,0x1f1f1f1f, 0x2f2f2f2f,0x1f1f1f1f,0x2f2f2f2f, 0x3f3f3f3f,0x2f2f2f2f,0x3f3f3f3f,
  387.                          0x4f4f4f4f,0x3f3f3f3f,0x4f4f4f4f, 0x5f5f5f5f,0x4f4f4f4f,0x5f5f5f5f, 0x6f6f6f6f,0x5f5f5f5f,0x6f6f6f6f, 0x7f7f7f7f,0x6f6f6f6f,0x7f7f7f7f,
  388.                          0x8f8f8f8f,0x7f7f7f7f,0x8f8f8f8f, 0x9f9f9f9f,0x8f8f8f8f,0x9f9f9f9f, 0xafafafaf,0x9f9f9f9f,0xafafafaf, 0xbfbfbfbf,0xafafafaf,0xbfbfbfbf,
  389.                          0xcfcfcfcf,0xbfbfbfbf,0xcfcfcfcf, 0xdfdfdfdf,0xcfcfcfcf,0xdfdfdfdf, 0xefefefef,0xdfdfdfdf,0xefefefef, 0xffffffff,0xefefefef,0xffffffff,
  390.                          0xefefefef,0xffffffff,0xefefefef, 0xdfdfdfdf,0xefefefef,0xdfdfdfdf, 0xcfcfcfcf,0xdfdfdfdf,0xcfcfcfcf, 0xbfbfbfbf,0xcfcfcfcf,0xbfbfbfbf,
  391.                          0xafafafaf,0xbfbfbfbf,0xafafafaf, 0x9f9f9f9f,0xafafafaf,0x9f9f9f9f, 0x8f8f8f8f,0x9f9f9f9f,0x8f8f8f8f, 0x7f7f7f7f,0x8f8f8f8f,0x7f7f7f7f,
  392.                          0x6f6f6f6f,0x7f7f7f7f,0x6f6f6f6f, 0x5f5f5f5f,0x6f6f6f6f,0x5f5f5f5f, 0x4f4f4f4f,0x5f5f5f5f,0x4f4f4f4f, 0x3f3f3f3f,0x4f4f4f4f,0x3f3f3f3f,
  393.                          0x2f2f2f2f,0x3f3f3f3f,0x2f2f2f2f, 0x1f1f1f1f,0x2f2f2f2f,0x1f1f1f1f, 0x0f0f0f0f,0x1f1f1f1f,0x0f0f0f0f, 0x0f0f0f0f,0x1f1f1f1f,0x1f1f1f1f,
  394.                          0x1f1f1f1f,0x2f2f2f2f,0x2f2f2f2f, 0x2f2f2f2f,0x3f3f3f3f,0x3f3f3f3f, 0x3f3f3f3f,0x4f4f4f4f,0x4f4f4f4f, 0x4f4f4f4f,0x5f5f5f5f,0x5f5f5f5f,
  395.                          0x5f5f5f5f,0x6f6f6f6f,0x6f6f6f6f, 0x6f6f6f6f,0x7f7f7f7f,0x7f7f7f7f, 0x7f7f7f7f,0x8f8f8f8f,0x8f8f8f8f, 0x8f8f8f8f,0x9f9f9f9f,0x9f9f9f9f,
  396.                          0x9f9f9f9f,0xafafafaf,0xafafafaf, 0xafafafaf,0xbfbfbfbf,0xbfbfbfbf, 0xbfbfbfbf,0xcfcfcfcf,0xcfcfcfcf, 0xcfcfcfcf,0xdfdfdfdf,0xdfdfdfdf,
  397.                          0xdfdfdfdf,0xefefefef,0xefefefef, 0xefefefef,0xffffffff,0xffffffff, 0xffffffff,0xefefefef,0xefefefef, 0xefefefef,0xdfdfdfdf,0xdfdfdfdf,
  398.                          0xdfdfdfdf,0xcfcfcfcf,0xcfcfcfcf, 0xcfcfcfcf,0xbfbfbfbf,0xbfbfbfbf, 0xbfbfbfbf,0xafafafaf,0xafafafaf, 0xafafafaf,0x9f9f9f9f,0x9f9f9f9f,
  399.                          0x9f9f9f9f,0x8f8f8f8f,0x8f8f8f8f, 0x8f8f8f8f,0x7f7f7f7f,0x7f7f7f7f, 0x7f7f7f7f,0x6f6f6f6f,0x6f6f6f6f, 0x6f6f6f6f,0x5f5f5f5f,0x5f5f5f5f,
  400.                          0x5f5f5f5f,0x4f4f4f4f,0x4f4f4f4f, 0x4f4f4f4f,0x3f3f3f3f,0x3f3f3f3f, 0x3f3f3f3f,0x2f2f2f2f,0x2f2f2f2f, 0x2f2f2f2f,0x1f1f1f1f,0x1f1f1f1f,
  401.                          0x1f1f1f1f,0x0f0f0f0f,0x0f0f0f0f, 0x1f1f1f1f,0x1f1f1f1f,0x0f0f0f0f, 0x2f2f2f2f,0x2f2f2f2f,0x1f1f1f1f, 0x3f3f3f3f,0x3f3f3f3f,0x2f2f2f2f,
  402.                          0x4f4f4f4f,0x4f4f4f4f,0x3f3f3f3f, 0x5f5f5f5f,0x5f5f5f5f,0x4f4f4f4f, 0x6f6f6f6f,0x6f6f6f6f,0x5f5f5f5f, 0x7f7f7f7f,0x7f7f7f7f,0x6f6f6f6f,
  403.                          0x8f8f8f8f,0x8f8f8f8f,0x7f7f7f7f, 0x9f9f9f9f,0x9f9f9f9f,0x8f8f8f8f, 0xafafafaf,0xafafafaf,0x9f9f9f9f, 0xbfbfbfbf,0xbfbfbfbf,0xafafafaf,
  404.                          0xcfcfcfcf,0xcfcfcfcf,0xbfbfbfbf, 0xdfdfdfdf,0xdfdfdfdf,0xcfcfcfcf, 0xefefefef,0xefefefef,0xdfdfdfdf, 0xffffffff,0xffffffff,0xefefefef,
  405.                          0xefefefef,0xefefefef,0xffffffff, 0xdfdfdfdf,0xdfdfdfdf,0xefefefef, 0xcfcfcfcf,0xcfcfcfcf,0xdfdfdfdf, 0xbfbfbfbf,0xbfbfbfbf,0xcfcfcfcf,
  406.                          0xafafafaf,0xafafafaf,0xbfbfbfbf, 0x9f9f9f9f,0x9f9f9f9f,0xafafafaf, 0x8f8f8f8f,0x8f8f8f8f,0x9f9f9f9f, 0x7f7f7f7f,0x7f7f7f7f,0x8f8f8f8f,
  407.                          0x6f6f6f6f,0x6f6f6f6f,0x7f7f7f7f, 0x5f5f5f5f,0x5f5f5f5f,0x6f6f6f6f, 0x4f4f4f4f,0x4f4f4f4f,0x5f5f5f5f, 0x3f3f3f3f,0x3f3f3f3f,0x4f4f4f4f,
  408.                          0x2f2f2f2f,0x2f2f2f2f,0x3f3f3f3f, 0x1f1f1f1f,0x1f1f1f1f,0x2f2f2f2f, 0x0f0f0f0f,0x0f0f0f0f,0x1f1f1f1f, 0x0f0f0f0f,0x0f0f0f0f,0x00000000,
  409.                          0x1f1f1f1f,0x1f1f1f1f,0x00000000, 0x2f2f2f2f,0x2f2f2f2f,0x00000000, 0x3f3f3f3f,0x3f3f3f3f,0x00000000, 0x4f4f4f4f,0x4f4f4f4f,0x00000000,
  410.                          0x5f5f5f5f,0x5f5f5f5f,0x00000000, 0x6f6f6f6f,0x6f6f6f6f,0x00000000, 0x7f7f7f7f,0x7f7f7f7f,0x00000000, 0x8f8f8f8f,0x8f8f8f8f,0x00000000,
  411.                          0x9f9f9f9f,0x9f9f9f9f,0x00000000, 0xafafafaf,0xafafafaf,0x00000000, 0xbfbfbfbf,0xbfbfbfbf,0x00000000, 0xcfcfcfcf,0xcfcfcfcf,0x00000000,
  412.                          0xdfdfdfdf,0xdfdfdfdf,0x00000000, 0xefefefef,0xefefefef,0x00000000, 0xffffffff,0xffffffff,0x00000000, 0xefefefef,0xffffffff,0x00000000,
  413.                          0xdfdfdfdf,0xffffffff,0x00000000, 0xcfcfcfcf,0xffffffff,0x00000000, 0xbfbfbfbf,0xffffffff,0x00000000, 0xafafafaf,0xffffffff,0x00000000,
  414.                          0x9f9f9f9f,0xffffffff,0x00000000, 0x8f8f8f8f,0xffffffff,0x00000000, 0x7f7f7f7f,0xffffffff,0x00000000, 0x6f6f6f6f,0xffffffff,0x00000000,
  415.                          0x5f5f5f5f,0xffffffff,0x00000000, 0x4f4f4f4f,0xffffffff,0x00000000, 0x3f3f3f3f,0xffffffff,0x00000000, 0x2f2f2f2f,0xffffffff,0x00000000,
  416.                          0x1f1f1f1f,0xffffffff,0x00000000, 0x0f0f0f0f,0xffffffff,0x00000000, 0x00000000,0xffffffff,0x00000000, 0x00000000,0xefefefef,0x00000000,
  417.                          0x00000000,0xdfdfdfdf,0x00000000, 0x00000000,0xcfcfcfcf,0x00000000, 0x00000000,0xbfbfbfbf,0x00000000, 0x00000000,0xafafafaf,0x00000000,
  418.                          0x00000000,0x9f9f9f9f,0x00000000, 0x00000000,0x8f8f8f8f,0x00000000, 0x00000000,0x7f7f7f7f,0x00000000, 0x00000000,0x6f6f6f6f,0x00000000,
  419.                          0x00000000,0x5f5f5f5f,0x00000000, 0x00000000,0x4f4f4f4f,0x00000000, 0x00000000,0x3f3f3f3f,0x00000000, 0x00000000,0x2f2f2f2f,0x00000000,
  420.                          0x00000000,0x1f1f1f1f,0x00000000, 0x00000000,0x0f0f0f0f,0x00000000, 0x0f0f0f0f,0x00000000,0x0f0f0f0f, 0x1f1f1f1f,0x00000000,0x1f1f1f1f,
  421.                          0x2f2f2f2f,0x00000000,0x2f2f2f2f, 0x3f3f3f3f,0x00000000,0x3f3f3f3f, 0x4f4f4f4f,0x00000000,0x4f4f4f4f, 0x5f5f5f5f,0x00000000,0x5f5f5f5f,
  422.                          0x6f6f6f6f,0x00000000,0x6f6f6f6f, 0x7f7f7f7f,0x00000000,0x7f7f7f7f, 0x8f8f8f8f,0x00000000,0x8f8f8f8f, 0x9f9f9f9f,0x00000000,0x9f9f9f9f,
  423.                          0xafafafaf,0x00000000,0xafafafaf, 0xbfbfbfbf,0x00000000,0xbfbfbfbf, 0xcfcfcfcf,0x00000000,0xcfcfcfcf, 0xdfdfdfdf,0x00000000,0xdfdfdfdf,
  424.                          0xefefefef,0x00000000,0xefefefef, 0xffffffff,0x00000000,0xffffffff, 0xffffffff,0x00000000,0xefefefef, 0xffffffff,0x00000000,0xdfdfdfdf,
  425.                          0xffffffff,0x00000000,0xcfcfcfcf, 0xffffffff,0x00000000,0xbfbfbfbf, 0xffffffff,0x00000000,0xafafafaf, 0xffffffff,0x00000000,0x9f9f9f9f,
  426.                          0xffffffff,0x00000000,0x8f8f8f8f, 0xffffffff,0x00000000,0x7f7f7f7f, 0xffffffff,0x00000000,0x6f6f6f6f, 0xffffffff,0x00000000,0x5f5f5f5f,
  427.                          0xffffffff,0x00000000,0x4f4f4f4f, 0xffffffff,0x00000000,0x3f3f3f3f, 0xffffffff,0x00000000,0x2f2f2f2f, 0xffffffff,0x00000000,0x1f1f1f1f,
  428.                          0xffffffff,0x00000000,0x0f0f0f0f, 0xffffffff,0x00000000,0x00000000, 0xefefefef,0x00000000,0x00000000, 0xdfdfdfdf,0x00000000,0x00000000,
  429.                          0xcfcfcfcf,0x00000000,0x00000000, 0xbfbfbfbf,0x00000000,0x00000000, 0xafafafaf,0x00000000,0x00000000, 0x9f9f9f9f,0x00000000,0x00000000,
  430.                          0x8f8f8f8f,0x00000000,0x00000000, 0x7f7f7f7f,0x00000000,0x00000000, 0x6f6f6f6f,0x00000000,0x00000000, 0x5f5f5f5f,0x00000000,0x00000000,
  431.                          0x4f4f4f4f,0x00000000,0x00000000, 0x3f3f3f3f,0x00000000,0x00000000, 0x2f2f2f2f,0x00000000,0x00000000, 0x1f1f1f1f,0x00000000,0x00000000,
  432.                          0x0f0f0f0f,0x00000000,0x00000000, 0x00000000,0x0f0f0f0f,0x0f0f0f0f, 0x00000000,0x1f1f1f1f,0x1f1f1f1f, 0x00000000,0x2f2f2f2f,0x2f2f2f2f,
  433.                          0x00000000,0x3f3f3f3f,0x3f3f3f3f, 0x00000000,0x4f4f4f4f,0x4f4f4f4f, 0x00000000,0x5f5f5f5f,0x5f5f5f5f, 0x00000000,0x6f6f6f6f,0x6f6f6f6f,
  434.                          0x00000000,0x7f7f7f7f,0x7f7f7f7f, 0x00000000,0x8f8f8f8f,0x8f8f8f8f, 0x00000000,0x9f9f9f9f,0x9f9f9f9f, 0x00000000,0xafafafaf,0xafafafaf,
  435.                          0x00000000,0xbfbfbfbf,0xbfbfbfbf, 0x00000000,0xcfcfcfcf,0xcfcfcfcf, 0x00000000,0xdfdfdfdf,0xdfdfdfdf, 0x00000000,0xefefefef,0xefefefef,
  436.                          0x00000000,0xffffffff,0xffffffff, 0x00000000,0xefefefef,0xffffffff, 0x00000000,0xdfdfdfdf,0xffffffff, 0x00000000,0xcfcfcfcf,0xffffffff,
  437.                          0x00000000,0xbfbfbfbf,0xffffffff, 0x00000000,0xafafafaf,0xffffffff, 0x00000000,0x9f9f9f9f,0xffffffff, 0x00000000,0x8f8f8f8f,0xffffffff,
  438.                          0x00000000,0x7f7f7f7f,0xffffffff, 0x00000000,0x6f6f6f6f,0xffffffff, 0x00000000,0x5f5f5f5f,0xffffffff, 0x00000000,0x4f4f4f4f,0xffffffff,
  439.                          0x00000000,0x3f3f3f3f,0xffffffff, 0x00000000,0x2f2f2f2f,0xffffffff, 0x00000000,0x1f1f1f1f,0xffffffff, 0x00000000,0x0f0f0f0f,0xffffffff,
  440.                          0x00000000,0x00000000,0xffffffff, 0x00000000,0x00000000,0xefefefef, 0x00000000,0x00000000,0xdfdfdfdf, 0x00000000,0x00000000,0xcfcfcfcf,
  441.                          0x00000000,0x00000000,0xbfbfbfbf, 0x00000000,0x00000000,0xafafafaf, 0x00000000,0x00000000,0x9f9f9f9f, 0x00000000,0x00000000,0x8f8f8f8f,
  442.                          0x00000000,0x00000000,0x7f7f7f7f, 0x00000000,0x00000000,0x6f6f6f6f, 0x00000000,0x00000000,0x5f5f5f5f, 0x00000000,0x00000000,0x4f4f4f4f,
  443.                          0x00000000,0x00000000,0x3f3f3f3f, 0x00000000,0x00000000,0x2f2f2f2f, 0x00000000,0x00000000,0x1f1f1f1f, 0x00000000,0x00000000,0x0f0f0f0f,
  444.                          NULL};
  445.  
  446. UWORD __chip ZoomPointer[] = {0x0000,0x0000,0x0100,0x0000,0x0100,0x0000,0x0000,0x0100,
  447.                               0x0000,0x0100,0x0100,0x0100,0x0100,0x0100,0x0000,0x0000,
  448.                               0xCC66,0x3C78,0x0000,0x0000,0x0100,0x0100,0x0100,0x0100,
  449.                               0x0000,0x0100,0x0000,0x0100,0x0100,0x0000,0x0100,0x0000,
  450.                               0x0000,0x0000};
  451.  
  452. struct NewMenu ProgMenu[] = { NM_TITLE,"Project",0,0,0,0,
  453.  
  454.                               NM_ITEM,"About...","A",NM_ITEMDISABLED,0,0,
  455.  
  456.                               NM_ITEM,NM_BARLABEL,0,0,0,0,
  457.  
  458.                               NM_ITEM,"Load picture...","L",NM_ITEMDISABLED,0,0,
  459.  
  460.                               NM_ITEM,"Save picture...","S",NM_ITEMDISABLED,0,0,
  461.  
  462.                               NM_ITEM,"Load palette...","K",NM_ITEMDISABLED,0,0,
  463.  
  464.                               NM_ITEM,"Save palette...","J",NM_ITEMDISABLED,0,0,
  465.  
  466.                               NM_ITEM,NM_BARLABEL,0,0,0,0,
  467.  
  468.                               NM_ITEM,"Print...","D",NM_ITEMDISABLED,0,0,
  469.  
  470.                               NM_ITEM,NM_BARLABEL,0,0,0,0,
  471.  
  472.                               NM_ITEM,"Quit...","Q",NM_ITEMDISABLED,0,0,
  473.  
  474. /***************************************************************************************/
  475.  
  476.                               NM_TITLE,"Options",0,0,0,0,
  477.  
  478.                               NM_ITEM,"Title",0,NM_ITEMDISABLED,0,0,
  479.                               NM_SUB,"Title bar","O",CHECKIT|MENUTOGGLE|CHECKED,0,0,
  480.                               NM_SUB,NM_BARLABEL,0,0,0,0,
  481.                               NM_SUB,"Last time","T",0,0,0,
  482.  
  483.                               NM_ITEM,"Limits...","C",NM_ITEMDISABLED,0,0,
  484.  
  485.                               NM_ITEM,"Iterations",0,NM_ITEMDISABLED,0,0,
  486.                               NM_SUB,"64",0,CHECKIT,~(1<<0),0,
  487.                               NM_SUB,"128",0,CHECKIT,~(1<<1),0,
  488.                               NM_SUB,"192",0,CHECKIT,~(1<<2),0,
  489.                               NM_SUB,"256",0,CHECKIT,~(1<<3),0,
  490.                               NM_SUB,"320",0,CHECKIT|CHECKED,~(1<<4),0,
  491.                               NM_SUB,"384",0,CHECKIT,~(1<<5),0,
  492.                               NM_SUB,"448",0,CHECKIT,~(1<<6),0,
  493.                               NM_SUB,"512",0,CHECKIT,~(1<<7),0,
  494.                               NM_SUB,"1024",0,CHECKIT,~(1<<8),0,
  495.                               NM_SUB,NM_BARLABEL,0,0,0,0,
  496.                               NM_SUB,"Custom...","I",CHECKIT,~(1<<10),0,
  497.  
  498.                               NM_ITEM,"Priority",0,0,0,0,
  499.                               NM_SUB,"-5","%",CHECKIT,~(1<<0),0,
  500.                               NM_SUB,"-4","$",CHECKIT,~(1<<1),0,
  501.                               NM_SUB,"-3","£",CHECKIT,~(1<<2),0,
  502.                               NM_SUB,"-2","\"",CHECKIT,~(1<<3),0,
  503.                               NM_SUB,"-1","!",CHECKIT,~(1<<4),0,
  504.                               NM_SUB,NM_BARLABEL,0,0,0,0,
  505.                               NM_SUB," 0","0",CHECKIT,~(1<<6),0,
  506.                               NM_SUB,NM_BARLABEL,0,0,0,0,
  507.                               NM_SUB,"+1","1",CHECKIT,~(1<<8),0,
  508.                               NM_SUB,"+2","2",CHECKIT,~(1<<9),0,
  509.                               NM_SUB,"+3","3",CHECKIT,~(1<<10),0,
  510.                               NM_SUB,"+4","4",CHECKIT,~(1<<11),0,
  511.                               NM_SUB,"+5","5",CHECKIT,~(1<<12),0,
  512.  
  513.                               NM_ITEM,"Color mapping",0,0,0,0,
  514.                               NM_SUB,"Repeated",0,CHECKIT,~(1<<0),0,
  515.                               NM_SUB,"Spread",0,CHECKIT|CHECKED,~(1<<1),0,
  516.  
  517.                               NM_ITEM,"Precision",0,0,0,0,
  518.                               NM_SUB,"Integer",0,CHECKIT|CHECKED,~(1<<0),0,
  519.                               NM_SUB,"Real",0,CHECKIT|NM_ITEMDISABLED,~(1<<1),0,
  520.                               NM_SUB,"Ppc",0,CHECKIT|NM_ITEMDISABLED,~(1<<2),0,
  521.  
  522. /***************************************************************************************/
  523.  
  524.                               NM_TITLE,"Calculate",0,0,0,0,
  525.  
  526.                               NM_ITEM,"PreView","W",NM_ITEMDISABLED,0,0,
  527.  
  528.                               NM_ITEM,NM_BARLABEL,0,0,0,0,
  529.  
  530.                               NM_ITEM,"ReCalculate","R",NM_ITEMDISABLED,0,0,
  531.  
  532.                               NM_ITEM,NM_BARLABEL,0,0,0,0,
  533.  
  534.                               NM_ITEM,"Undo","U",NM_ITEMDISABLED,0,0,
  535.  
  536.                               NM_ITEM,NM_BARLABEL,0,0,0,0,
  537.  
  538.                               NM_ITEM,"Zoom","Z",NM_ITEMDISABLED,0,0,
  539.  
  540.                               NM_ITEM,"Stop","X",0,0,0,
  541.  
  542. /***************************************************************************************/
  543.  
  544.                               NM_TITLE,"Video",0,0,0,0,
  545.  
  546.                               NM_ITEM,"Cycle",0,NM_ITEMDISABLED,0,0,
  547.                               NM_SUB,"Forward",">",0,0,0,
  548.                               NM_SUB,"Backward","<",0,0,0,
  549.                               NM_SUB,NM_BARLABEL,0,0,0,0,
  550.                               NM_SUB,"Delay...","-",0,0,0,
  551.  
  552.                               NM_ITEM,NM_BARLABEL,0,0,0,0,
  553.  
  554.                               NM_ITEM,"Palette...","P",NM_ITEMDISABLED,0,0,
  555.  
  556.                               NM_ITEM,NM_BARLABEL,0,0,0,0,
  557.  
  558.                               NM_ITEM,"Screen mode...","V",NM_ITEMDISABLED,0,0,
  559.  
  560.                               NM_ITEM,NM_BARLABEL,0,0,0,0,
  561.  
  562.                               NM_ITEM,"Font settings...","F",NM_ITEMDISABLED,0,0,
  563.  
  564.                               NM_END,0,0,0,0,0 };
  565.  
  566.  
  567. struct Menu *MAINMENU = NULL;
  568.  
  569. struct BitMap *MYBITMAP = NULL;
  570.  
  571. struct Task *THISTASK = NULL;
  572.  
  573. struct TextFont *NEWFONT = NULL;
  574.  
  575. struct ILBMInfo MYILBM;
  576.  
  577. struct MandelChunk MANDChunk;
  578.  
  579. struct MandelChunk *MANDChunkTmp = NULL;
  580.  
  581. LONG IlbmProps [] = { ID_ILBM, ID_BMHD, ID_ILBM, ID_CMAP, ID_ILBM, ID_CAMG, ID_ILBM, ID_MAND, TAG_END };
  582.  
  583. LONG IlbmCollects [] = { TAG_END };
  584.  
  585. LONG IlbmStops [] = { ID_ILBM, ID_BODY, TAG_END };
  586.  
  587. IMPORT WORD __asm MandPPC (register __d0 WORD,register __fp0 long double,register __fp1 long double);
  588.  
  589. #ifdef __USE_FPU
  590.  
  591. IMPORT WORD __asm MandFPU (register __d0 WORD,register __fp0 long double,register __fp1 long double);
  592.  
  593. #endif
  594.  
  595. IMPORT WORD __asm MandINT (register __d0 WORD,register __d1 LONG,register __d2 LONG);
  596.  
  597. IMPORT BOOL ModifyPalette (struct Window *,WORD,WORD,ULONG *);
  598.  
  599. IMPORT BOOL ScalePalette (struct Window *,ULONG *,ULONG,ULONG);
  600.  
  601. IMPORT BOOL Fade (struct Window *,ULONG *,ULONG,ULONG,BOOL);
  602.  
  603. IMPORT BOOL Cycle (struct Window *,ULONG,BOOL);
  604.  
  605. IMPORT LONG QueryMandPic (struct ILBMInfo *,struct MandelChunk **,UBYTE *);
  606.  
  607. IMPORT LONG LoadMandPic (struct ILBMInfo *,UBYTE *);
  608.  
  609. IMPORT LONG SaveMandPic (struct ILBMInfo *,struct Chunk *,struct Chunk *,UBYTE *);
  610.  
  611. IMPORT LONG LoadPalette (struct ILBMInfo *,UBYTE *);
  612.  
  613. IMPORT LONG SavePalette (struct ILBMInfo *,struct Chunk *,UBYTE *);
  614.  
  615. VOID PutPointer (struct Window *Win,UWORD *PointerImage,LONG Width,LONG Height,LONG XOrigin,LONG YOrigin,UBYTE Type)
  616. {
  617.   switch (Type)
  618.   {
  619.      case CLEAR_POINTER:  SetWindowPointer (Win,TAG_END);
  620.  
  621.                           break;
  622.  
  623.      case BUSY_POINTER:   SetWindowPointer (Win,WA_BusyPointer,TRUE,TAG_END);
  624.  
  625.                           break;
  626.  
  627.      case ZOOM_POINTER:   SetPointer (Win,PointerImage,Height,Width,XOrigin,YOrigin);
  628.   }
  629. }
  630.  
  631. UBYTE GetMaxPlanes (ULONG ModeID)
  632. {
  633. DisplayInfoHandle DisplayHandle;
  634.  
  635. struct DimensionInfo DimensionInfo;
  636.  
  637. UBYTE Planes = 0;
  638.  
  639.   DisplayHandle = FindDisplayInfo (ModeID);
  640.  
  641.   if (GetDisplayInfoData (DisplayHandle,(UBYTE *) &DimensionInfo,sizeof (struct DimensionInfo),DTAG_DIMS,ModeID))
  642.   {
  643.      Planes = DimensionInfo.MaxDepth;
  644.   }
  645.  
  646.   else Fail (DimensionInfoError,20L);
  647.  
  648.   return Planes;
  649. }
  650.  
  651. LONG CheckGFX (VOID)
  652. {
  653. DisplayInfoHandle DisplayHandle;
  654.  
  655. struct DisplayInfo DisplayInfo;
  656.  
  657. BOOL AGA = FALSE,RTG = FALSE;
  658.  
  659. ULONG ModeID = (ULONG) INVALID_ID;
  660.  
  661.   if (GetMaxPlanes (LORES_KEY) == MAX_DEPTH) AGA = TRUE;
  662.  
  663.   while (((ModeID = NextDisplayInfo (ModeID)) != INVALID_ID) && RTG == FALSE)
  664.   {
  665.         DisplayHandle = FindDisplayInfo (ModeID);
  666.  
  667.         if (GetDisplayInfoData (DisplayHandle,(UBYTE *) &DisplayInfo,sizeof (struct DisplayInfo),DTAG_DISP,ModeID))
  668.         {
  669.            if ((DisplayInfo.PropertyFlags & DIPF_IS_FOREIGN) && (GetMaxPlanes (ModeID) >= MAX_DEPTH)) RTG = TRUE;
  670.         }
  671.   }
  672.  
  673.   if (RTG && AGA) return 3L;
  674.  
  675.   if (RTG) return 2L;
  676.  
  677.   if (AGA) return 1L;
  678.  
  679.   return NULL;
  680. }
  681.  
  682. BOOL CheckEHB (ULONG ModeID)
  683. {
  684. DisplayInfoHandle DisplayHandle;
  685.  
  686. struct DisplayInfo DisplayInfo;
  687.  
  688. BOOL IsEHB = FALSE;
  689.  
  690.   DisplayHandle = FindDisplayInfo (ModeID);
  691.  
  692.   if (GetDisplayInfoData (DisplayHandle,(UBYTE *) &DisplayInfo,sizeof (struct DisplayInfo),DTAG_DISP,ModeID))
  693.   {
  694.      if (DisplayInfo.PropertyFlags & DIPF_IS_EXTRAHALFBRITE) IsEHB = TRUE;
  695.   }
  696.  
  697.   else Fail (DisplayInfoError,20L);
  698.  
  699.   return IsEHB;
  700. }
  701.  
  702. ULONG CheckFPU (UWORD CpuFlags)
  703. {
  704. ULONG MCFPU = NULL, PPCFPU = NULL;
  705.  
  706.   if ((AFF_68060 & CpuFlags) || (AFF_FPU40 & CpuFlags) || (AFF_68882 & CpuFlags) || (AFF_68881 & CpuFlags)) MCFPU = FPU_68K;
  707.  
  708.   if (0) PPCFPU = FPU_PPC;    /* to be continued... */
  709.  
  710.   return (MCFPU | PPCFPU);
  711. }
  712.  
  713. VOID CloseDisplay (struct ILBMInfo *Ilbm,CPTR *VInfo)
  714. {
  715.   if (WMASK & MASK)
  716.   {
  717.      ClearMenuStrip (Ilbm->win);
  718.  
  719.      PutPointer (Ilbm->win,0,0,0,0,0,CLEAR_POINTER);
  720.  
  721.      CloseWindow (Ilbm->win);
  722.  
  723.      Ilbm->win = NULL;
  724.  
  725.      Ilbm->wrp = NULL;
  726.  
  727.      MASK ^= WMASK;
  728.   }
  729.  
  730.   if (VMASK & MASK)
  731.   {
  732.      FreeVisualInfo (VInfo);
  733.  
  734.      MASK ^= VMASK;
  735.   }
  736.  
  737.   if (SMASK & MASK)
  738.   {
  739.      CloseScreen (Ilbm->scr);
  740.  
  741.      FreeBitMap (Ilbm->brbitmap);
  742.  
  743.      Ilbm->scr = NULL;
  744.  
  745.      Ilbm->vp  = NULL;
  746.  
  747.      Ilbm->srp = NULL;
  748.  
  749.      MASK ^= SMASK;
  750.   }
  751.  
  752.   if (FMASK & MASK)
  753.   {
  754.      CloseFont (NEWFONT);
  755.  
  756.      MASK ^= FMASK;
  757.   }
  758. }
  759.  
  760. struct Window *OpenDisplay (struct ILBMInfo *Ilbm,WORD Width,WORD Height,WORD Depth,ULONG ModeID)
  761. {
  762. struct Screen *Scr;
  763.  
  764. struct Window *Win = NULL;
  765.  
  766.   if (Scr = OpenIdScreen (Ilbm,Width,Height,Depth,ModeID))
  767.   {
  768.      Win = OpenWindowTags (NULL,
  769.                            WA_Left,Scr->LeftEdge,
  770.                            WA_Top,Scr->TopEdge,
  771.                            WA_Width,Scr->Width,
  772.                            WA_Height,Scr->Height,
  773.                            WA_ScreenTitle,VERSION,
  774.                            WA_CustomScreen,Scr,
  775.                            WA_IDCMP,IDCMP_STANDARD,
  776.                            WA_Flags,WFLG_STANDARD,
  777.                            WA_MouseQueue,1L,
  778.                            WA_BusyPointer,TRUE,
  779.                            TAG_END);
  780.  
  781.      if (! Win)
  782.      {
  783.         if (Scr) CloseScreen (Scr);
  784.  
  785.         return NULL;
  786.      }
  787.  
  788.      Ilbm->scr = Scr;
  789.  
  790.      Ilbm->win = Win;
  791.  
  792.      Ilbm->vp  = &(Scr->ViewPort);
  793.  
  794.      Ilbm->srp = &(Scr->RastPort);
  795.  
  796.      Ilbm->wrp = Win->RPort;
  797.  
  798.      Ilbm->Bmhd.w = Ilbm->win->Width;
  799.  
  800.      Ilbm->Bmhd.h = Ilbm->win->Height;
  801.  
  802.      Ilbm->Bmhd.nPlanes = Ilbm->wrp->BitMap->Depth;
  803.   }
  804.  
  805.   return (Win);
  806. }
  807.  
  808. struct Screen *OpenIdScreen (struct ILBMInfo *Ilbm,WORD Width,WORD Height,WORD Depth,ULONG ModeID)
  809. {
  810. struct Rectangle Spos,DClip,TxtO,StdO,MaxO,UClip;
  811.  
  812. struct Rectangle *UClipp;
  813.  
  814. struct Screen *Scr;
  815.  
  816. LONG ErrorCode = NULL,TryNew;
  817.  
  818. ULONG BitMapTag,PassedTags;
  819.  
  820.   if (! Ilbm) return (NULL);
  821.  
  822.   TryNew = ((QueryOverscan (ModeID,&TxtO,OSCAN_TEXT)) && (QueryOverscan (ModeID,&StdO,OSCAN_STANDARD)) && (QueryOverscan (ModeID,&MaxO,OSCAN_MAX)));
  823.  
  824.   if (TryNew)
  825.   {
  826.      if (Ilbm->Video) Ilbm->ucliptype = OSCAN_VIDEO;
  827.  
  828.      if ((Ilbm->ucliptype) && (QueryOverscan (ModeID,&UClip,(LONG) Ilbm->ucliptype))) UClipp = &UClip;
  829.  
  830.      else UClipp = NULL;
  831.  
  832.      ClipIt (Width,Height,&Spos,&DClip,&TxtO,&StdO,&MaxO,UClipp,Ilbm->IFFPFlags & IFFPF_NOCENTER ? TRUE : FALSE);
  833.  
  834.      BitMapTag = ((Ilbm->brbitmap) && (Ilbm->stype & CUSTOMBITMAP)) ? SA_BitMap : TAG_IGNORE;
  835.  
  836.      PassedTags = Ilbm->stags ? TAG_MORE : TAG_IGNORE;
  837.  
  838.      Scr = OpenScreenTags (NULL,
  839.                            SA_DisplayID,   ModeID,
  840.                            SA_Type,        Ilbm->stype,
  841.                            SA_Top,         Spos.MinY,
  842.                            SA_Left,        Spos.MinX,
  843.                            SA_Width,       Width,
  844.                            SA_Height,      Height,
  845.                            SA_Depth,       Depth,
  846.                            SA_DClip,       &DClip,
  847.                            SA_AutoScroll,  Ilbm->Autoscroll,
  848.                            SA_Colors32,    PALETTE,
  849.                            SA_Pens,        PENS,
  850.                            SA_Interleaved, TRUE,
  851.                            SA_Font,        &MYFONTSTRUCT,
  852.                            SA_Title,       VERSION,
  853.                            SA_ErrorCode,   &ErrorCode,
  854.                            SA_ShowTitle,   Ilbm->TBState,
  855.                            BitMapTag,      Ilbm->brbitmap,
  856.                            PassedTags,     Ilbm->stags,
  857.                            TAG_END);
  858.  
  859.      if (! Scr)
  860.      {
  861.         switch (ErrorCode)
  862.         {
  863.                  case OSERR_NOMONITOR   : Fail (NoMonitor,20L);
  864.  
  865.                                           break;
  866.  
  867.                  case OSERR_NOCHIPS     : Fail (NoChips,20L);
  868.  
  869.                                           break;
  870.  
  871.                  case OSERR_NOMEM       : Fail (NoMem,20L);
  872.  
  873.                                           break;
  874.  
  875.                  case OSERR_NOCHIPMEM   : Fail (NoChipMem,20L);
  876.  
  877.                                           break;
  878.  
  879.                  case OSERR_PUBNOTUNIQUE: Fail (PubNotUnique,20L);
  880.  
  881.                                           break;
  882.  
  883.                  case OSERR_UNKNOWNMODE : Fail (UnknownMode,20L);
  884.  
  885.                                           break;
  886.  
  887.                  case OSERR_TOODEEP     : Fail (ScreenTooDeep,20L);
  888.  
  889.                                           break;
  890.  
  891.                  case OSERR_ATTACHFAIL  : Fail (AttachScreen,20L);
  892.  
  893.                                           break;
  894.  
  895.                  case OSERR_NOTAVAILABLE: Fail (ModeNotAvailableError,20L);
  896.  
  897.                                           break;
  898.  
  899.                  default                : Fail (UnknownScrError,20L);
  900.  
  901.                                           break;
  902.         }
  903.  
  904.         return NULL;
  905.      }
  906.   }
  907.  
  908.   else return NULL;
  909.  
  910.   return (Scr);
  911. }
  912.  
  913. ULONG ModeFallBack (ULONG OldModeID,WORD Width,WORD Height,WORD Depth)
  914. {
  915. ULONG NewModeID = HIRESLACE_KEY,ModeID;
  916.  
  917.   ModeID = BestModeID (BIDTAG_DIPFMustHave,(OldModeID & EXTRA_HALFBRITE ? DIPF_IS_EXTRAHALFBRITE : 0),
  918.                        BIDTAG_NominalWidth,Width,
  919.                        BIDTAG_NominalHeight,Height,
  920.                        BIDTAG_DesiredWidth,Width,
  921.                        BIDTAG_DesiredHeight,Height,
  922.                        BIDTAG_Depth,Depth,
  923.                        BIDTAG_SourceID,(FindDisplayInfo (OldModeID) ? OldModeID : (OldModeID & (~(MONITOR_ID_MASK|SPRITES|GENLOCK_AUDIO|GENLOCK_VIDEO|VP_HIDE)))),
  924.                        TAG_END);
  925.  
  926.  
  927.   if (ModeID != INVALID_ID) NewModeID = ModeID;
  928.  
  929.   return (NewModeID);
  930. }
  931.  
  932. VOID ClipIt (WORD wide,WORD high,struct Rectangle *spos,struct Rectangle *dclip,struct Rectangle *txto, struct Rectangle *stdo,struct Rectangle *maxo, struct Rectangle *uclip,BOOL NoCenter)
  933. {
  934. struct Rectangle *besto;
  935.  
  936. WORD minx, maxx, miny, maxy;
  937.  
  938. WORD txtw, txth, stdw, stdh, bestw, besth;
  939.  
  940.     /* get the txt, std and max widths and heights */
  941.  
  942.     txtw = txto->MaxX - txto->MinX + 1;
  943.  
  944.     txth = txto->MaxY - txto->MinY + 1;
  945.  
  946.     stdw = stdo->MaxX - stdo->MinX + 1;
  947.  
  948.     stdh = stdo->MaxY - stdo->MinY + 1;
  949.  
  950.     if ((wide <= txtw) && (high <= txth))
  951.     {
  952.     besto = txto;
  953.  
  954.     bestw = txtw;
  955.  
  956.     besth = txth;
  957.     }
  958.  
  959.     else
  960.     {
  961.     besto = stdo;
  962.  
  963.     bestw = stdw;
  964.  
  965.     besth = stdh;
  966.     }
  967.  
  968.     if (uclip)
  969.     {
  970.     *dclip = *uclip;
  971.  
  972.         spos->MinX = uclip->MinX;
  973.  
  974.     spos->MinY = uclip->MinY;
  975.     }
  976.  
  977.     else
  978.     {
  979.     /* CENTER the screen based on best oscan prefs
  980.      * but confine dclip within max oscan limits
  981.      *
  982.      * FIX MinX first */
  983.  
  984.     spos->MinX = minx = besto->MinX - ((wide - bestw) >> 1);
  985.  
  986.     maxx = wide + minx - 1;
  987.  
  988.     if (maxx > maxo->MaxX)  maxx = maxo->MaxX;    /* too right */
  989.  
  990.     if (minx < maxo->MinX)
  991.         {
  992.         minx = maxo->MinX;    /* too left  */
  993.  
  994.         /* if we want left edge of screen not clipped */
  995.  
  996.         if (NoCenter) spos->MinX = minx;
  997.     }
  998.  
  999.     /* FIX MinY */
  1000.  
  1001.     spos->MinY = miny = besto->MinY - ((high - besth) >> 1);
  1002.  
  1003.     /* if lower than top of txto, move up */
  1004.  
  1005.     spos->MinY = miny = MIN (spos->MinY,txto->MinY);
  1006.  
  1007.     maxy = high + miny - 1;
  1008.  
  1009.     if (maxy > maxo->MaxY)  maxy = maxo->MaxY;    /* too down  */
  1010.  
  1011.     if (miny < maxo->MinY)
  1012.         {
  1013.        miny = maxo->MinY;    /* too up    */
  1014.  
  1015.        /* if we want top of screen not clipped */
  1016.  
  1017.        if (NoCenter) spos->MinY = miny;
  1018.         }
  1019.  
  1020.     /* SET up dclip */
  1021.  
  1022.     dclip->MinX = minx;
  1023.  
  1024.     dclip->MinY = miny;
  1025.  
  1026.     dclip->MaxX = maxx;
  1027.  
  1028.     dclip->MaxY = maxy;
  1029.     }
  1030. }
  1031.  
  1032. LONG MakeDisplay (struct ILBMInfo *Ilbm)
  1033. {
  1034. static ULONG SAVED_COMPONENT = NULL,SAVED_POSITION = NULL;
  1035.  
  1036.   if (Ilbm->IFFPFlags & IFFPF_USERMODE)    Ilbm->camg = Ilbm->usermodeid;
  1037.  
  1038.   Ilbm->Bmhd.w = MAX (MIN_WIDTH,Ilbm->Bmhd.w);
  1039.  
  1040.   Ilbm->Bmhd.h = MAX (MIN_HEIGHT,Ilbm->Bmhd.h);
  1041.  
  1042.   if (ModeNotAvailable (Ilbm->camg) || (Ilbm->IFFPFlags & IFFPF_BESTFIT))
  1043.  
  1044.      Ilbm->camg = ModeFallBack (Ilbm->camg,Ilbm->Bmhd.w,Ilbm->Bmhd.h,Ilbm->Bmhd.nPlanes);
  1045.  
  1046.   Ilbm->Bmhd.nPlanes = MAX (MIN_DEPTH,Ilbm->Bmhd.nPlanes);
  1047.  
  1048.   if (Ilbm->Bmhd.nPlanes > GetMaxPlanes (Ilbm->camg)) Ilbm->Bmhd.nPlanes = GetMaxPlanes (Ilbm->camg);
  1049.  
  1050.   if (NEWFONT = OpenDiskFont (&MYFONTSTRUCT)) MASK |= FMASK;
  1051.  
  1052.   else
  1053.   {
  1054.      strcpy (MYFONTSTRUCT.ta_Name,DEF_FONTNAME);
  1055.  
  1056.      MYFONTSTRUCT.ta_YSize = DEF_FONTSIZE;
  1057.  
  1058.      MYFONTSTRUCT.ta_Style = FS_NORMAL;
  1059.  
  1060.      MYFONTSTRUCT.ta_Flags = FPF_ROMFONT;
  1061.  
  1062.      if (NEWFONT = OpenFont (&MYFONTSTRUCT)) MASK |= FMASK;
  1063.  
  1064.      else
  1065.      {
  1066.        Fail (FontError,20L);
  1067.  
  1068.        return NULL;
  1069.      }
  1070.   }
  1071.  
  1072.   PALETTE [0L] = (1L << Ilbm->Bmhd.nPlanes) << 16L;
  1073.  
  1074.   if (SAVED_POSITION) PALETTE [SAVED_POSITION] = SAVED_COMPONENT;
  1075.  
  1076.   SAVED_POSITION = (3L * (1L << Ilbm->Bmhd.nPlanes)) + 1L;
  1077.  
  1078.   SAVED_COMPONENT = PALETTE [SAVED_POSITION];
  1079.  
  1080.   PALETTE [SAVED_POSITION] = NULL;
  1081.  
  1082.   if (! (OpenDisplay (Ilbm,MAX (Ilbm->Bmhd.pageWidth,Ilbm->Bmhd.w),MAX (Ilbm->Bmhd.pageHeight,Ilbm->Bmhd.h),Ilbm->Bmhd.nPlanes,Ilbm->camg))) return NULL;
  1083.  
  1084.   MASK |= SMASK;
  1085.  
  1086.   MASK |= WMASK;
  1087.  
  1088.   if (! (VINFO = GetVisualInfo (Ilbm->scr,TAG_END)))
  1089.   {
  1090.      Fail (VisualInfoError,20L);
  1091.  
  1092.      return NULL;
  1093.   }
  1094.  
  1095.   MASK |= VMASK;
  1096.  
  1097.   if (! (LayoutMenus (MAINMENU,VINFO,GTMN_TextAttr,&MYFONTSTRUCT,GTMN_NewLookMenus,TRUE,TAG_END)))
  1098.   {
  1099.      Fail (FontError,20L);
  1100.  
  1101.      return NULL;
  1102.   }
  1103.  
  1104.   SetMenuStrip (Ilbm->win,MAINMENU);
  1105.  
  1106.   Ilbm->EHB = CheckEHB (Ilbm->camg);
  1107.  
  1108.   return (Ilbm->vp->ColorMap->Count);
  1109. }
  1110.  
  1111. VOID ShowTime (struct Window *Win,TEXT *String,ULONG Secs)
  1112. {
  1113.   sprintf (BAR_STRING,"%s %uh %um %us - Average speed: %.3lf Pix/sec",String,Secs / 3600L,(Secs / 60L) % 60L,Secs % 60L,(DOUBLE) ((Win->Width - Win->LeftEdge) * (Win->Height - Win->TopEdge)) / (DOUBLE) Secs);
  1114.  
  1115.   SetWindowTitles (Win,(TEXT *) ~0,BAR_STRING);
  1116. }
  1117.  
  1118. VOID SaveCoords (VOID)
  1119. {
  1120.   URMIN = RMIN;
  1121.  
  1122.   URMAX = RMAX;
  1123.  
  1124.   UIMIN = IMIN;
  1125.  
  1126.   UIMAX = IMAX;
  1127. }
  1128.  
  1129. VOID RestoreCoords (VOID)
  1130. {
  1131.   RMIN = URMIN;
  1132.  
  1133.   RMAX = URMAX;
  1134.  
  1135.   IMIN = UIMIN;
  1136.  
  1137.   IMAX = UIMAX;
  1138. }
  1139.  
  1140. BOOL NewCoords (struct Window *Win,WORD a1,WORD b1,WORD a2,WORD b2)
  1141. {
  1142. long double KReal,KImag;
  1143.  
  1144.   if (((a2 - a1) < 2L) || ((b2 - b1) < 2L)) return FALSE;
  1145.  
  1146.   KReal = fabs (RMAX-RMIN) / ((long double) Win->Width);
  1147.  
  1148.   KImag = fabs (IMAX-IMIN) / ((long double) Win->Height);
  1149.  
  1150.   SaveCoords ();
  1151.  
  1152.   RMAX = RMIN + ((long double) a2 * KReal);
  1153.  
  1154.   IMIN = IMAX - ((long double) b2 * KImag);
  1155.  
  1156.   RMIN += ((long double) a1 * KReal);
  1157.  
  1158.   IMAX -= ((long double) b1 * KImag);
  1159.  
  1160.   return TRUE;
  1161. }
  1162.  
  1163. VOID AdjustRatio (long double *RMin,long double *IMax,long double *RMax,long double *IMin,WORD ScrWidth,WORD ScrHeight,BOOL KeepReal)
  1164. {
  1165. long double RWidth,IHeight,RCenter,ICenter;
  1166.  
  1167.   IHeight = *IMax - *IMin;
  1168.  
  1169.   RWidth  = *RMax - *RMin;
  1170.  
  1171.   if (KeepReal)
  1172.   {
  1173.      ICenter = *IMin + (IHeight / 2.0);
  1174.  
  1175.      IHeight = (RWidth * ScrHeight) / ScrWidth;
  1176.  
  1177.      *IMax = ICenter + (IHeight / 2.0);
  1178.  
  1179.      *IMin = ICenter - (IHeight / 2.0);
  1180.   }
  1181.  
  1182.   else
  1183.   {
  1184.      RCenter = *RMin + (RWidth / 2.0);
  1185.  
  1186.      RWidth = (IHeight * ScrWidth) / ScrHeight;
  1187.  
  1188.      *RMax = RCenter + (RWidth / 2.0);
  1189.  
  1190.      *RMin = RCenter - (RWidth / 2.0);
  1191.   }
  1192. }
  1193.  
  1194. LONG About (struct Window *Win)
  1195. {
  1196. struct EasyStruct MyReq_1 = { sizeof (struct EasyStruct),0,"Informations requester","  " VERSION COPYRIGHT "\n\n\n  Snail address:" "\n\n  " AUTHOR "\n  " ADDRESS "\n\n\n  " EMAIL "\n\n  This program is GiftWare!  \n\n","Ok|More..." };
  1197.  
  1198. struct EasyStruct MyReq_2 = { sizeof (struct EasyStruct),0,"Workgroup","Greetings & thanks in alphabetical order:\n\n  Claudio Pucci\n  Giuseppe Staffelli\n  Sergio Tassi\n  Steffen Haeuser\n\n\nIf someone hasn't the courage to risk\nfor his ideals, either his ideals are\nworth nothing, or worth nothing is he\n\nAmiga forever.\n\n","Ok" };
  1199.  
  1200. LONG More;
  1201.  
  1202.   More = EasyRequest (Win,&MyReq_1,0);
  1203.  
  1204.   if (! More) EasyRequest (Win,&MyReq_2,0);
  1205.  
  1206.   return More;
  1207. }
  1208.  
  1209. LONG Choice (struct Window *Win,TEXT *Title,TEXT *String)
  1210. {
  1211. struct EasyStruct MyReq = { sizeof (struct EasyStruct),NULL,0,0,"Yes|No" };
  1212.  
  1213.   MyReq.es_Title = Title;
  1214.  
  1215.   MyReq.es_TextFormat = String;
  1216.  
  1217.   return EasyRequest (Win,&MyReq,0);
  1218. }
  1219.  
  1220. BOOL ShowCoords (struct Window *Win)
  1221. {
  1222. struct Gadget *GadList = NULL,*StringGad_1,*StringGad_2,*StringGad_3,*StringGad_4;
  1223.  
  1224. struct Gadget *MyButtonGad,*MyCheckBoxGad,*MyGad = NULL;
  1225.  
  1226. struct Window *GadWin;
  1227.  
  1228. struct IntuiMessage *Message;
  1229.  
  1230. BOOL NewLimits = FALSE,Exit = FALSE,Accept = FALSE,Reset = FALSE,Ratio = FALSE,KeepReal = TRUE;
  1231.  
  1232. TEXT String [MAXCHARS];
  1233.  
  1234. UWORD MyCode = 0;
  1235.  
  1236. ULONG MyClass = NULL;
  1237.  
  1238. long double Tmp_RMIN = RMIN,Tmp_IMAX = IMAX,Tmp_RMAX = RMAX,Tmp_IMIN = IMIN;
  1239.  
  1240.   TEXTGAD.ng_VisualInfo = BUTTONGAD.ng_VisualInfo = CHECKBOXGAD.ng_VisualInfo  = VINFO;
  1241.  
  1242.   StringGad_1 = CreateContext (&GadList);
  1243.  
  1244.   TEXTGAD.ng_LeftEdge     = 118;
  1245.  
  1246.   TEXTGAD.ng_TopEdge      = 20;
  1247.  
  1248.   TEXTGAD.ng_Width        = 194;
  1249.  
  1250.   TEXTGAD.ng_Height       = (MYFONTSTRUCT.ta_YSize * 3L) >> 1L;
  1251.  
  1252.   TEXTGAD.ng_GadgetText   = "_Left";
  1253.  
  1254.   TEXTGAD.ng_Flags        = PLACETEXT_LEFT;
  1255.  
  1256.   sprintf (String,"%+2.16lf",RMIN);
  1257.  
  1258.   StringGad_1 = CreateGadget (STRING_KIND,StringGad_1,&TEXTGAD,GTST_String,String,STRINGA_ReplaceMode,TRUE,GTST_MaxChars,MAXCHARS,GT_Underscore,'_',TAG_END);
  1259.  
  1260.   TEXTGAD.ng_TopEdge     += (14 + TEXTGAD.ng_Height);
  1261.  
  1262.   TEXTGAD.ng_GadgetText   = "_Top ";
  1263.  
  1264.   sprintf (String,"%+2.16lf",IMAX);
  1265.  
  1266.   StringGad_2 = CreateGadget (STRING_KIND,StringGad_1,&TEXTGAD,GTST_String,String,STRINGA_ReplaceMode,TRUE,GTST_MaxChars,MAXCHARS,GT_Underscore,'_',TAG_END);
  1267.  
  1268.   TEXTGAD.ng_TopEdge     += (14 + TEXTGAD.ng_Height);
  1269.  
  1270.   TEXTGAD.ng_GadgetText   = "_Right";
  1271.  
  1272.   TEXTGAD.ng_Flags        = PLACETEXT_RIGHT;
  1273.  
  1274.   sprintf (String,"%+2.16lf",RMAX);
  1275.  
  1276.   StringGad_3 = CreateGadget (STRING_KIND,StringGad_2,&TEXTGAD,GTST_String,String,STRINGA_ReplaceMode,TRUE,GTST_MaxChars,MAXCHARS,GT_Underscore,'_',TAG_END);
  1277.  
  1278.   TEXTGAD.ng_TopEdge     += (14 + TEXTGAD.ng_Height);
  1279.  
  1280.   TEXTGAD.ng_GadgetText   = "_Bottom";
  1281.  
  1282.   sprintf (String,"%+2.16lf",IMIN);
  1283.  
  1284.   StringGad_4 = CreateGadget (STRING_KIND,StringGad_3,&TEXTGAD,GTST_String,String,STRINGA_ReplaceMode,TRUE,GTST_MaxChars,MAXCHARS,GT_Underscore,'_',TAG_END);
  1285.  
  1286.   CHECKBOXGAD.ng_LeftEdge   = 14;
  1287.  
  1288.   CHECKBOXGAD.ng_TopEdge    = TEXTGAD.ng_TopEdge + TEXTGAD.ng_Height + 14;;
  1289.  
  1290.   CHECKBOXGAD.ng_Width      = MYFONTSTRUCT.ta_YSize << 1L;
  1291.  
  1292.   CHECKBOXGAD.ng_Height     = MYFONTSTRUCT.ta_YSize + 6;
  1293.  
  1294.   CHECKBOXGAD.ng_GadgetText = "_Keep X axis for ratio";
  1295.  
  1296.   CHECKBOXGAD.ng_Flags      = PLACETEXT_RIGHT;
  1297.  
  1298.   CHECKBOXGAD.ng_GadgetID   = KEEP;
  1299.  
  1300.   MyCheckBoxGad = CreateGadget (CHECKBOX_KIND,StringGad_4,&CHECKBOXGAD,GTCB_Checked,TRUE,GTCB_Scaled,TRUE,GT_Underscore,'_',TAG_END);
  1301.  
  1302.   BUTTONGAD.ng_LeftEdge   = 14;
  1303.  
  1304.   BUTTONGAD.ng_TopEdge    = CHECKBOXGAD.ng_TopEdge + CHECKBOXGAD.ng_Height + 30;
  1305.  
  1306.   BUTTONGAD.ng_Width      = 90;
  1307.  
  1308.   BUTTONGAD.ng_Height     = (MYFONTSTRUCT.ta_YSize * 3L) >> 1L;
  1309.  
  1310.   BUTTONGAD.ng_GadgetText = "_Accept";
  1311.  
  1312.   BUTTONGAD.ng_GadgetID   = ACCEPT;
  1313.  
  1314.   MyButtonGad = CreateGadget (BUTTON_KIND,MyCheckBoxGad,&BUTTONGAD,GT_Underscore,'_',TAG_END);
  1315.  
  1316.   BUTTONGAD.ng_LeftEdge  += (14 + BUTTONGAD.ng_Width);
  1317.  
  1318.   BUTTONGAD.ng_GadgetText = "Rat_io";
  1319.  
  1320.   BUTTONGAD.ng_GadgetID   = RATIO;
  1321.  
  1322.   MyButtonGad = CreateGadget (BUTTON_KIND,MyButtonGad,&BUTTONGAD,GT_Underscore,'_',TAG_END);
  1323.  
  1324.   BUTTONGAD.ng_LeftEdge  += (14 + BUTTONGAD.ng_Width);
  1325.  
  1326.   BUTTONGAD.ng_GadgetText = "Re_set";
  1327.  
  1328.   BUTTONGAD.ng_GadgetID   = RESET;
  1329.  
  1330.   MyButtonGad = CreateGadget (BUTTON_KIND,MyButtonGad,&BUTTONGAD,GT_Underscore,'_',TAG_END);
  1331.  
  1332.   BUTTONGAD.ng_LeftEdge  += (14 + BUTTONGAD.ng_Width);
  1333.  
  1334.   BUTTONGAD.ng_GadgetText = "_Cancel";
  1335.  
  1336.   BUTTONGAD.ng_GadgetID   = CANCEL;
  1337.  
  1338.   MyButtonGad = CreateGadget (BUTTON_KIND,MyButtonGad,&BUTTONGAD,GT_Underscore,'_',TAG_END);
  1339.  
  1340.   if (MyButtonGad)
  1341.   {
  1342.      GadWin = OpenWindowTags (NULL,WA_Left,Win->LeftEdge + 25,
  1343.                                    WA_Top,Win->TopEdge + 35,
  1344.                                    WA_Width,BUTTONGAD.ng_LeftEdge + BUTTONGAD.ng_Width + 24,
  1345.                                    WA_Height,BUTTONGAD.ng_TopEdge + BUTTONGAD.ng_Height + 35,
  1346.                                    WA_Title,"Coordinates requester",
  1347.                                    WA_ScreenTitle,"Insert new range...",
  1348.                                    WA_CustomScreen,Win->WScreen,
  1349.                                    WA_IDCMP,IDCMP_CLOSEWINDOW|IDCMP_REFRESHWINDOW|IDCMP_VANILLAKEY|STRINGIDCMP|BUTTONIDCMP,
  1350.                                    WA_Flags,WFLG_ACTIVATE|WFLG_DRAGBAR|WFLG_SIMPLE_REFRESH|WFLG_GIMMEZEROZERO|WFLG_RMBTRAP,
  1351.                                    WA_Gadgets,GadList,
  1352.                                    TAG_END);
  1353.      if (GadWin)
  1354.      {
  1355.         GT_RefreshWindow (GadWin,NULL);
  1356.  
  1357.         do {  WaitPort (GadWin->UserPort);
  1358.  
  1359.               if (Message = (struct IntuiMessage *) GT_GetIMsg (GadWin->UserPort))
  1360.               {
  1361.                      MyGad = (struct Gadget *) Message->IAddress;
  1362.  
  1363.                      MyClass = Message->Class;
  1364.  
  1365.                      MyCode = Message->Code;
  1366.  
  1367.                      GT_ReplyIMsg ((struct IntuiMessage *) Message);
  1368.               }
  1369.  
  1370.               switch (MyClass)
  1371.               {
  1372.                      case IDCMP_REFRESHWINDOW : GT_BeginRefresh (GadWin);
  1373.  
  1374.                                                 GT_EndRefresh (GadWin,TRUE);
  1375.  
  1376.                                                 break;
  1377.  
  1378.                      case IDCMP_VANILLAKEY    : switch (ToUpper ((ULONG) MyCode))
  1379.                                                 {
  1380.                                                        case 'L' : ActivateGadget (StringGad_1,GadWin,0);
  1381.  
  1382.                                                                   break;
  1383.  
  1384.                                                        case 'T' : ActivateGadget (StringGad_2,GadWin,0);
  1385.  
  1386.                                                                   break;
  1387.  
  1388.                                                        case 'R' : ActivateGadget (StringGad_3,GadWin,0);
  1389.  
  1390.                                                                   break;
  1391.  
  1392.                                                        case 'B' : ActivateGadget (StringGad_4,GadWin,0);
  1393.  
  1394.                                                                   break;
  1395.  
  1396.                                                        case 'A' : Accept = TRUE;
  1397.  
  1398.                                                                   break;
  1399.  
  1400.                                                        case 'I' : Ratio = TRUE;
  1401.  
  1402.                                                                   break;
  1403.  
  1404.                                                        case 'S' : Reset = TRUE;
  1405.  
  1406.                                                                   break;
  1407.  
  1408.                                                        case 'C' : Exit = TRUE;
  1409.  
  1410.                                                                   break;
  1411.  
  1412.                                                        case 'K' : KeepReal = ! KeepReal;
  1413.  
  1414.                                                                   GT_SetGadgetAttrs (MyCheckBoxGad,GadWin,NULL,GTCB_Checked,KeepReal,TAG_END);
  1415.  
  1416.                                                                   break;
  1417.  
  1418.                                                     case VAN_ESC: Exit = TRUE;
  1419.                                                 }
  1420.  
  1421.                                                         break;
  1422.  
  1423.                      case IDCMP_GADGETUP      : switch (MyGad->GadgetID)
  1424.                                                 {
  1425.                                                        case ACCEPT:   Accept = TRUE;
  1426.  
  1427.                                                                       break;
  1428.  
  1429.                                                        case  RATIO:   Ratio = TRUE;
  1430.  
  1431.                                                                       break;
  1432.  
  1433.                                                        case  RESET:   Reset = TRUE;
  1434.  
  1435.                                                                       break;
  1436.  
  1437.                                                        case   KEEP:   KeepReal = ! KeepReal;
  1438.  
  1439.                                                                       break;
  1440.  
  1441.                                                        case CANCEL:   Exit = TRUE;
  1442.                                                 }
  1443.  
  1444.                                                 break;
  1445.  
  1446.                      case IDCMP_CLOSEWINDOW   : Exit = TRUE;
  1447.               }
  1448.  
  1449.               if (Accept)
  1450.               {
  1451.                  sscanf (((struct StringInfo *) StringGad_1->SpecialInfo)->Buffer,"%lf",&Tmp_RMIN);
  1452.  
  1453.                  sscanf (((struct StringInfo *) StringGad_2->SpecialInfo)->Buffer,"%lf",&Tmp_IMAX);
  1454.  
  1455.                  sscanf (((struct StringInfo *) StringGad_3->SpecialInfo)->Buffer,"%lf",&Tmp_RMAX);
  1456.  
  1457.                  sscanf (((struct StringInfo *) StringGad_4->SpecialInfo)->Buffer,"%lf",&Tmp_IMIN);
  1458.  
  1459.                  if ((Tmp_RMIN >= Tmp_RMAX) || (Tmp_IMIN >= Tmp_IMAX)) DisplayBeep (Win->WScreen);
  1460.  
  1461.                  else
  1462.                  {
  1463.                     NewLimits = Exit = TRUE;
  1464.  
  1465.                     SaveCoords ();
  1466.  
  1467.                     RMIN  = Tmp_RMIN;
  1468.  
  1469.                     IMAX  = Tmp_IMAX;
  1470.  
  1471.                     RMAX  = Tmp_RMAX;
  1472.  
  1473.                     IMIN  = Tmp_IMIN;
  1474.                  }
  1475.  
  1476.                  Accept = FALSE;
  1477.               }
  1478.  
  1479.               if (Ratio)
  1480.               {
  1481.                  AdjustRatio (&Tmp_RMIN,&Tmp_IMAX,&Tmp_RMAX,&Tmp_IMIN,Win->Width,Win->Height,KeepReal);
  1482.  
  1483.                  TEXTGAD.ng_Flags = PLACETEXT_LEFT;
  1484.  
  1485.                  sprintf (String,"%+2.16lf",Tmp_RMIN);
  1486.  
  1487.                  GT_SetGadgetAttrs (StringGad_1,GadWin,NULL,GTST_String,String,TAG_END);
  1488.  
  1489.                  sprintf (String,"%+2.16lf",Tmp_IMAX);
  1490.  
  1491.                  GT_SetGadgetAttrs (StringGad_2,GadWin,NULL,GTST_String,String,TAG_END);
  1492.  
  1493.                  sprintf (String,"%+2.16lf",Tmp_RMAX);
  1494.  
  1495.                  TEXTGAD.ng_Flags = PLACETEXT_RIGHT;
  1496.  
  1497.                  GT_SetGadgetAttrs (StringGad_3,GadWin,NULL,GTST_String,String,TAG_END);
  1498.  
  1499.                  sprintf (String,"%+2.16lf",Tmp_IMIN);
  1500.  
  1501.                  GT_SetGadgetAttrs (StringGad_4,GadWin,NULL,GTST_String,String,TAG_END);
  1502.  
  1503.                  Ratio = FALSE;
  1504.               }
  1505.  
  1506.               if (Reset)
  1507.               {
  1508.                  TEXTGAD.ng_Flags = PLACETEXT_LEFT;
  1509.  
  1510.                  sprintf (String,"%+2.16lf",DEF_RMIN);
  1511.  
  1512.                  GT_SetGadgetAttrs (StringGad_1,GadWin,NULL,GTST_String,String,TAG_END);
  1513.  
  1514.                  sprintf (String,"%+2.16lf",DEF_IMAX);
  1515.  
  1516.                  GT_SetGadgetAttrs (StringGad_2,GadWin,NULL,GTST_String,String,TAG_END);
  1517.  
  1518.                  TEXTGAD.ng_Flags = PLACETEXT_RIGHT;
  1519.  
  1520.                  sprintf (String,"%+2.16lf",DEF_RMAX);
  1521.  
  1522.                  GT_SetGadgetAttrs (StringGad_3,GadWin,NULL,GTST_String,String,TAG_END);
  1523.  
  1524.                  sprintf (String,"%+2.16lf",DEF_IMIN);
  1525.  
  1526.                  GT_SetGadgetAttrs (StringGad_4,GadWin,NULL,GTST_String,String,TAG_END);
  1527.  
  1528.                  Reset = FALSE;
  1529.               }
  1530.  
  1531.            } while (Exit == FALSE);
  1532.  
  1533.        CloseWindow (GadWin);
  1534.      }
  1535.  
  1536.      else Fail (WindowGadgetError,15L);
  1537.   }
  1538.  
  1539.   else Fail (GadgetError,15L);
  1540.  
  1541.   FreeGadgets (GadList);
  1542.  
  1543.   return NewLimits;
  1544. }
  1545.  
  1546. ULONG IntegerGad (struct Window *Win,TEXT *TitleWin,TEXT *TitleScr,TEXT *TxtString,ULONG Var)
  1547. {
  1548. struct IntuiMessage *Message;
  1549.  
  1550. struct Gadget *GadList = NULL , *MyIntGad , *MyButtonGad , *MyGad = NULL;
  1551.  
  1552. struct Window *GadWin;
  1553.  
  1554. BOOL Exit = FALSE;
  1555.  
  1556. UWORD MyCode = 0;
  1557.  
  1558. ULONG MyClass = NULL;
  1559.  
  1560.   TEXTGAD.ng_VisualInfo = BUTTONGAD.ng_VisualInfo = VINFO;
  1561.  
  1562.   MyIntGad = CreateContext (&GadList);
  1563.  
  1564.   TEXTGAD.ng_LeftEdge     = 170;
  1565.  
  1566.   TEXTGAD.ng_TopEdge      = 20;
  1567.  
  1568.   TEXTGAD.ng_Width        = 90;
  1569.  
  1570.   TEXTGAD.ng_Height       = (MYFONTSTRUCT.ta_YSize * 3L) >> 1L;
  1571.  
  1572.   TEXTGAD.ng_GadgetText   = TxtString;
  1573.  
  1574.   TEXTGAD.ng_Flags        = PLACETEXT_LEFT;
  1575.  
  1576.   MyIntGad = CreateGadget (INTEGER_KIND,MyIntGad,&TEXTGAD,GTIN_Number,Var,GTIN_MaxChars,6,STRINGA_ReplaceMode,TRUE,GT_Underscore,'_',TAG_END);
  1577.  
  1578.   BUTTONGAD.ng_LeftEdge   = 20;
  1579.  
  1580.   BUTTONGAD.ng_TopEdge    = TEXTGAD.ng_TopEdge + TEXTGAD.ng_Height + 30;
  1581.  
  1582.   BUTTONGAD.ng_Width      = 90;
  1583.  
  1584.   BUTTONGAD.ng_Height     = (MYFONTSTRUCT.ta_YSize * 3L) >> 1L;
  1585.  
  1586.   BUTTONGAD.ng_GadgetText = "_Accept";
  1587.  
  1588.   BUTTONGAD.ng_GadgetID   = ACCEPT;
  1589.  
  1590.   MyButtonGad = CreateGadget (BUTTON_KIND,MyIntGad,&BUTTONGAD,GT_Underscore,'_',TAG_END);
  1591.  
  1592.   BUTTONGAD.ng_LeftEdge  += (60 + BUTTONGAD.ng_Width);
  1593.  
  1594.   BUTTONGAD.ng_GadgetText = "_Cancel";
  1595.  
  1596.   BUTTONGAD.ng_GadgetID   = CANCEL;
  1597.  
  1598.   MyButtonGad = CreateGadget (BUTTON_KIND,MyButtonGad,&BUTTONGAD,GT_Underscore,'_',TAG_END);
  1599.  
  1600.   if (MyButtonGad)
  1601.   {
  1602.      GadWin = OpenWindowTags (NULL,WA_Left,Win->LeftEdge + 25,
  1603.                                    WA_Top,Win->TopEdge + 35,
  1604.                                    WA_Width,BUTTONGAD.ng_LeftEdge + BUTTONGAD.ng_Width + 30,
  1605.                                    WA_Height,BUTTONGAD.ng_TopEdge + BUTTONGAD.ng_Height + 35,
  1606.                                    WA_Title,TitleWin,
  1607.                                    WA_ScreenTitle,TitleScr,
  1608.                                    WA_CustomScreen,Win->WScreen,
  1609.                                    WA_IDCMP,IDCMP_CLOSEWINDOW|IDCMP_REFRESHWINDOW|IDCMP_VANILLAKEY|INTEGERIDCMP|BUTTONIDCMP,
  1610.                                    WA_Flags,WFLG_ACTIVATE|WFLG_DRAGBAR|WFLG_SIMPLE_REFRESH|WFLG_GIMMEZEROZERO|WFLG_RMBTRAP,
  1611.                                    WA_Gadgets,GadList,
  1612.                                    TAG_END);
  1613.  
  1614.      if (GadWin)
  1615.      {
  1616.         GT_RefreshWindow (GadWin,NULL);
  1617.  
  1618.         do {  WaitPort (GadWin->UserPort);
  1619.  
  1620.               if (Message = (struct IntuiMessage *) GT_GetIMsg (GadWin->UserPort))
  1621.               {
  1622.                      MyGad = (struct Gadget *) Message->IAddress;
  1623.  
  1624.                      MyClass = Message->Class;
  1625.  
  1626.                      MyCode = Message->Code;
  1627.  
  1628.                      GT_ReplyIMsg ((struct IntuiMessage *) Message);
  1629.               }
  1630.  
  1631.               switch (MyClass)
  1632.               {
  1633.                      case IDCMP_REFRESHWINDOW : GT_BeginRefresh (GadWin);
  1634.  
  1635.                                                 GT_EndRefresh (GadWin,TRUE);
  1636.  
  1637.                                                 break;
  1638.  
  1639.                      case IDCMP_VANILLAKEY    : switch (ToUpper ((ULONG) MyCode))
  1640.                                                 {
  1641.                                                        case 'D' :
  1642.  
  1643.                                                        case 'I' : ActivateGadget (MyIntGad,GadWin,0);
  1644.  
  1645.                                                                   break;
  1646.  
  1647.                                                        case 'A' : Var = ((struct StringInfo *) MyIntGad->SpecialInfo)->LongInt;
  1648.  
  1649.                                                                   Exit = TRUE;
  1650.  
  1651.                                                                   break;
  1652.  
  1653.                                                        case 'C' : Exit = TRUE;
  1654.  
  1655.                                                                   break;
  1656.  
  1657.                                                     case VAN_ESC: Exit = TRUE;
  1658.                                                 }
  1659.  
  1660.                                                 break;
  1661.  
  1662.                      case IDCMP_GADGETUP      : switch (MyGad->GadgetID)
  1663.                                                 {
  1664.                                                         case ACCEPT  : Var = ((struct StringInfo *) MyIntGad->SpecialInfo)->LongInt;
  1665.  
  1666.                                                                        Exit = TRUE;
  1667.  
  1668.                                                                        break;
  1669.  
  1670.                                                         case CANCEL  : Exit = TRUE;
  1671.                                                 }
  1672.  
  1673.                                                 break;
  1674.  
  1675.                      case IDCMP_CLOSEWINDOW   : Exit = TRUE;
  1676.               }
  1677.  
  1678.            } while (Exit == FALSE);
  1679.  
  1680.         CloseWindow (GadWin);
  1681.      }
  1682.  
  1683.      else Fail (WindowError,15L);
  1684.   }
  1685.  
  1686.   else Fail (GadgetError,15L);
  1687.  
  1688.   FreeGadgets (GadList);
  1689.  
  1690.   return Var;
  1691. }
  1692.  
  1693. WORD Ppc (WORD Iterazioni,long double Cre,long double Cim)
  1694. {
  1695. WORD Val;
  1696.  
  1697.   /* call Warp pre context switch */
  1698.  
  1699.   Val = MandPPC (Iterazioni,Cre,Cim);
  1700.  
  1701.   /* call Warp post context switch */
  1702.  
  1703.   return Val;
  1704. }
  1705.  
  1706. #ifdef __USE_FPU
  1707.  
  1708. WORD Real (WORD Iterazioni,long double Cre,long double Cim)
  1709. {
  1710.   return MandFPU (Iterazioni,Cre,Cim);
  1711. }
  1712.  
  1713. #else
  1714.  
  1715. WORD Real (WORD Iterazioni,long double Cre,long double Cim)
  1716. {
  1717. register long double zr,zi,zi2,dist,maxdist;
  1718.  
  1719.   zi = Cim;
  1720.  
  1721.   zr = Cre;
  1722.  
  1723.   maxdist = 4;
  1724.  
  1725.   do {
  1726.        zi2 = zi;
  1727.  
  1728.        zi *= zr;
  1729.  
  1730.        zr *= zr;
  1731.  
  1732.        zi2 *= zi2;
  1733.  
  1734.        dist = zr;
  1735.  
  1736.        dist += zi2;
  1737.  
  1738.        if (dist > maxdist) return Iterazioni;
  1739.  
  1740.        zi += zi;
  1741.  
  1742.        zr -= zi2;
  1743.  
  1744.        zi += Cim;
  1745.  
  1746.        zr += Cre;
  1747.  
  1748.      } while (-- Iterazioni);
  1749.  
  1750.   return 0;
  1751. }
  1752.  
  1753. #endif
  1754.  
  1755. WORD Integer (WORD Iterazioni,long double Cre,long double Cim)
  1756. {
  1757.   return MandINT (Iterazioni,(LONG) (Cre * MAX_POT),(LONG) (Cim * MAX_POT));
  1758. }
  1759.  
  1760. VOID VLine_R_EHB (struct RastPort *Rp,const LONG b1,const LONG b2,const LONG x)
  1761. {
  1762. REGISTER LONG y;
  1763.  
  1764. ULONG Color;
  1765.  
  1766.  CRE = RMIN + (((long double)  x) * INCREMREAL);
  1767.  
  1768.  CIM = IMAX - (((long double) b2) * INCREMIMAG);
  1769.  
  1770.  for (y = b2; y >= b1; y--)
  1771.  {
  1772.      Color = (*FUNCTION) (MAX_ITERATIONS,CRE,CIM);
  1773.  
  1774.      if (Color)
  1775.      {
  1776.         Color %= 56L;
  1777.  
  1778.         Color += ((Color > 27L) ? (RESERVED_PENS << 1L) : RESERVED_PENS);
  1779.      }
  1780.  
  1781.      SetAPen (Rp,Color);
  1782.  
  1783.      WritePixel (Rp,x,y);
  1784.  
  1785.      CIM += INCREMIMAG;
  1786.  }
  1787. }
  1788.  
  1789. VOID HLine_R_EHB (struct RastPort *Rp,const LONG a1,const LONG a2,const LONG y)
  1790. {
  1791. REGISTER LONG x;
  1792.  
  1793. ULONG Color;
  1794.  
  1795.  CRE = RMIN + (((long double) a1) * INCREMREAL);
  1796.  
  1797.  CIM = IMAX - (((long double)  y) * INCREMIMAG);
  1798.  
  1799.  for (x = a1; x <= a2; x++)
  1800.  {
  1801.      Color = (*FUNCTION) (MAX_ITERATIONS,CRE,CIM);
  1802.  
  1803.      if (Color)
  1804.      {
  1805.         Color %= 56L;
  1806.  
  1807.         Color += ((Color > 27L) ? (RESERVED_PENS << 1L) : RESERVED_PENS);
  1808.      }
  1809.  
  1810.      SetAPen (Rp,Color);
  1811.  
  1812.      WritePixel (Rp,x,y);
  1813.  
  1814.      CRE += INCREMREAL;
  1815.  }
  1816. }
  1817.  
  1818. VOID VLine_R (struct RastPort *Rp,const LONG b1,const LONG b2,const LONG x)
  1819. {
  1820. REGISTER LONG y;
  1821.  
  1822. ULONG Color;
  1823.  
  1824.  CRE = RMIN + (((long double)  x) * INCREMREAL);
  1825.  
  1826.  CIM = IMAX - (((long double) b2) * INCREMIMAG);
  1827.  
  1828.  for (y = b2; y >= b1; y--)
  1829.  {
  1830.      Color = (*FUNCTION) (MAX_ITERATIONS,CRE,CIM);
  1831.  
  1832.      if (Color)
  1833.      {
  1834.         Color %= CURRENT_MAX_COLORS;
  1835.  
  1836.         Color += RESERVED_PENS;
  1837.      }
  1838.  
  1839.      SetAPen (Rp,Color);
  1840.  
  1841.      WritePixel (Rp,x,y);
  1842.  
  1843.      CIM += INCREMIMAG;
  1844.  }
  1845. }
  1846.  
  1847. VOID HLine_R (struct RastPort *Rp,const LONG a1,const LONG a2,const LONG y)
  1848. {
  1849. REGISTER LONG x;
  1850.  
  1851. ULONG Color;
  1852.  
  1853.  CRE = RMIN + (((long double) a1) * INCREMREAL);
  1854.  
  1855.  CIM = IMAX - (((long double)  y) * INCREMIMAG);
  1856.  
  1857.  for (x = a1; x <= a2; x++)
  1858.  {
  1859.      Color = (*FUNCTION) (MAX_ITERATIONS,CRE,CIM);
  1860.  
  1861.      if (Color)
  1862.      {
  1863.         Color %= CURRENT_MAX_COLORS;
  1864.  
  1865.         Color += RESERVED_PENS;
  1866.      }
  1867.  
  1868.      SetAPen (Rp,Color);
  1869.  
  1870.      WritePixel (Rp,x,y);
  1871.  
  1872.      CRE += INCREMREAL;
  1873.  }
  1874. }
  1875.  
  1876. VOID VLine_S_EHB (struct RastPort *Rp,const LONG b1,const LONG b2,const LONG x)
  1877. {
  1878. REGISTER LONG y;
  1879.  
  1880. ULONG Color;
  1881.  
  1882.  CRE = RMIN + (((long double)  x) * INCREMREAL);
  1883.  
  1884.  CIM = IMAX - (((long double) b2) * INCREMIMAG);
  1885.  
  1886.  for (y = b2; y >= b1; y--)
  1887.  {
  1888.      Color = (*FUNCTION) (MAX_ITERATIONS,CRE,CIM);
  1889.  
  1890.      if (Color)
  1891.      {
  1892.         Color *= 56L;
  1893.  
  1894.         Color /= ITERATIONS;
  1895.  
  1896.         Color += ((Color > 27L) ? (RESERVED_PENS << 1L) : RESERVED_PENS);
  1897.      }
  1898.  
  1899.      SetAPen (Rp,Color);
  1900.  
  1901.      WritePixel (Rp,x,y);
  1902.  
  1903.      CIM += INCREMIMAG;
  1904.  }
  1905. }
  1906.  
  1907. VOID HLine_S_EHB (struct RastPort *Rp,const LONG a1,const LONG a2,const LONG y)
  1908. {
  1909. REGISTER LONG x;
  1910.  
  1911. ULONG Color;
  1912.  
  1913.  CRE = RMIN + (((long double) a1) * INCREMREAL);
  1914.  
  1915.  CIM = IMAX - (((long double)  y) * INCREMIMAG);
  1916.  
  1917.  for (x = a1; x <= a2; x++)
  1918.  {
  1919.      Color = (*FUNCTION) (MAX_ITERATIONS,CRE,CIM);
  1920.  
  1921.      if (Color)
  1922.      {
  1923.         Color *= 56L;
  1924.  
  1925.         Color /= ITERATIONS;
  1926.  
  1927.         Color += ((Color > 27L) ? (RESERVED_PENS << 1L) : RESERVED_PENS);
  1928.      }
  1929.  
  1930.      SetAPen (Rp,Color);
  1931.  
  1932.      WritePixel (Rp,x,y);
  1933.  
  1934.      CRE += INCREMREAL;
  1935.  }
  1936. }
  1937.  
  1938. VOID VLine_S (struct RastPort *Rp,const LONG b1,const LONG b2,const LONG x)
  1939. {
  1940. REGISTER LONG y;
  1941.  
  1942. ULONG Color;
  1943.  
  1944.  CRE = RMIN + (((long double)  x) * INCREMREAL);
  1945.  
  1946.  CIM = IMAX - (((long double) b2) * INCREMIMAG);
  1947.  
  1948.  for (y = b2; y >= b1; y--)
  1949.  {
  1950.      Color = (*FUNCTION) (MAX_ITERATIONS,CRE,CIM);
  1951.  
  1952.      if (Color)
  1953.      {
  1954.         Color *= CURRENT_MAX_COLORS;
  1955.  
  1956.         Color /= ITERATIONS;
  1957.  
  1958.         Color += RESERVED_PENS;
  1959.      }
  1960.  
  1961.      SetAPen (Rp,Color);
  1962.  
  1963.      WritePixel (Rp,x,y);
  1964.  
  1965.      CIM += INCREMIMAG;
  1966.  }
  1967. }
  1968.  
  1969. VOID HLine_S (struct RastPort *Rp,const LONG a1,const LONG a2,const LONG y)
  1970. {
  1971. REGISTER LONG x;
  1972.  
  1973. ULONG Color;
  1974.  
  1975.  CRE = RMIN + (((long double) a1) * INCREMREAL);
  1976.  
  1977.  CIM = IMAX - (((long double)  y) * INCREMIMAG);
  1978.  
  1979.  for (x = a1; x <= a2; x++)
  1980.  {
  1981.      Color = (*FUNCTION) (MAX_ITERATIONS,CRE,CIM);
  1982.  
  1983.      if (Color)
  1984.      {
  1985.         Color *= CURRENT_MAX_COLORS;
  1986.  
  1987.         Color /= ITERATIONS;
  1988.  
  1989.         Color += RESERVED_PENS;
  1990.      }
  1991.  
  1992.      SetAPen (Rp,Color);
  1993.  
  1994.      WritePixel (Rp,x,y);
  1995.  
  1996.      CRE += INCREMREAL;
  1997.  }
  1998. }
  1999.  
  2000. BOOL CheckBox (struct RastPort *Rp,const LONG a1,const LONG b1,const LONG a2,const LONG b2)
  2001. {
  2002. const LONG Color = ReadPixel (Rp,a1,b1);
  2003.  
  2004. REGISTER LONG Var;
  2005.  
  2006.   if (Color != ReadPixel (Rp,a2,b2)) return FALSE;
  2007.  
  2008.   if (Color != ReadPixel (Rp,a2,b1)) return FALSE;
  2009.  
  2010.   if (Color != ReadPixel (Rp,a1,b2)) return FALSE;
  2011.  
  2012.   for (Var = (a1 + 1L); Var <= (a2 - 1L); Var++)
  2013.   {
  2014.       if (Color != ReadPixel (Rp,Var,b1)) return FALSE;
  2015.  
  2016.       if (Color != ReadPixel (Rp,Var,b2)) return FALSE;
  2017.   }
  2018.  
  2019.   for (Var = (b1 + 1L); Var <= (b2 - 1L); Var++)
  2020.   {
  2021.       if (Color != ReadPixel (Rp,a1,Var)) return FALSE;
  2022.  
  2023.       if (Color != ReadPixel (Rp,a2,Var)) return FALSE;
  2024.   }
  2025.  
  2026.   return TRUE;
  2027. }
  2028.  
  2029. BOOL Rectangle (struct Window *Win,const LONG a1,const LONG b1,const LONG a2,const LONG b2)
  2030. {
  2031. struct IntuiMessage *Message;
  2032.  
  2033. UWORD MyCode;
  2034.  
  2035. LONG helpx,helpy;
  2036.  
  2037. ULONG MyClass;
  2038.  
  2039.  if (Win->UserPort->mp_SigBit)
  2040.  {
  2041.     if (Message = (struct IntuiMessage *) GT_GetIMsg (Win->UserPort))
  2042.     {
  2043.        MyClass = Message->Class;
  2044.  
  2045.        MyCode  = Message->Code;
  2046.  
  2047.        GT_ReplyIMsg ((struct IntuiMessage *) Message);
  2048.  
  2049.        switch (MyClass)
  2050.        {
  2051.          case IDCMP_MENUPICK    : if (MyCode != MENUNULL)
  2052.                                   {
  2053.                                      if (ProcessMenu (Win,MyCode) & STOP_MSG) return TRUE;
  2054.                                   }
  2055.  
  2056.                                   break;
  2057.  
  2058.          case IDCMP_RAWKEY      : if (MyCode == TAB)
  2059.                                   {
  2060.                                      DisplayBeep (Win->WScreen);
  2061.  
  2062.                                      Delay (30L);
  2063.  
  2064.                                      return FALSE;
  2065.                                   }
  2066.  
  2067.                                   if (MyCode == RAW_ESC)
  2068.                                   {
  2069.                                      DisplayBeep (Win->WScreen);
  2070.  
  2071.                                      return TRUE;
  2072.                                   }
  2073.  
  2074.                                   break;
  2075.  
  2076.          case IDCMP_CLOSEWINDOW : return TRUE;
  2077.        }
  2078.     }
  2079.  }
  2080.  
  2081.  helpx = a2 - a1;
  2082.  
  2083.  helpy = b2 - b1;
  2084.  
  2085.  if ((helpx < MINLIMIT) || (helpy < MINLIMIT)) return FALSE;
  2086.  
  2087.  if (CheckBox (Win->RPort,a1,b1,a2,b2))
  2088.  {
  2089.     SetAPen (Win->RPort,ReadPixel (Win->RPort,a1,b1));
  2090.  
  2091.     RectFill (Win->RPort,a1+1L,b1+1L,a2-1L,b2-1L);
  2092.  
  2093.     return FALSE;
  2094.  }
  2095.  
  2096.  if ((helpx < (MINLIMIT << 1L)) || (helpy < (MINLIMIT << 1L)))
  2097.  {
  2098.     for (helpy = (b1 + 1L); helpy <= (b2 - 1L); helpy++)
  2099.     {
  2100.         (*H_LINE) (Win->RPort,a1+1L,a2-1L,helpy);
  2101.     }
  2102.  
  2103.     return FALSE;
  2104.  }
  2105.  
  2106.  if (helpx >= helpy)
  2107.  {
  2108.     helpx = (a1 + a2) >> 1L;
  2109.  
  2110.     (*V_LINE) (Win->RPort,b1+1L,b2-1L,helpx);
  2111.  
  2112.     if (Rectangle (Win,a1,b1,helpx,b2)) return TRUE;
  2113.  
  2114.     if (Rectangle (Win,helpx,b1,a2,b2)) return TRUE;
  2115.  }
  2116.  
  2117.  else
  2118.  {
  2119.     helpy = (b1 + b2) >> 1L;
  2120.  
  2121.     (*H_LINE) (Win->RPort,a1+1L,a2-1L,helpy);
  2122.  
  2123.     if (Rectangle (Win,a1,b1,a2,helpy)) return TRUE;
  2124.  
  2125.     if (Rectangle (Win,a1,helpy,a2,b2)) return TRUE;
  2126.  }
  2127.  
  2128.  return FALSE;
  2129. }
  2130.  
  2131. ULONG DrawFractal (struct Window *Win,const LONG a1,const LONG b1,const LONG a2,const LONG b2)
  2132. {
  2133. ULONG StartSec = NULL , EndSec = NULL , Dummy = NULL;
  2134.  
  2135.  CurrentTime (&StartSec,&Dummy);
  2136.  
  2137.  INCREMREAL = (fabs (RMAX-RMIN)) / ((long double) (a2 - a1 + 1L));
  2138.  
  2139.  INCREMIMAG = (fabs (IMAX-IMIN)) / ((long double) (b2 - b1 + 1L));
  2140.  
  2141.  ITERATIONS = MAX_ITERATIONS + 1;
  2142.  
  2143.  if (TMASK & MASK) ShowTitle (Win->WScreen,FALSE);
  2144.  
  2145.  (*H_LINE) (Win->RPort,a1,a2,b1);
  2146.  
  2147.  (*V_LINE) (Win->RPort,b1+1L,b2-1L,a2);
  2148.  
  2149.  (*H_LINE) (Win->RPort,a1,a2,b2);
  2150.  
  2151.  (*V_LINE) (Win->RPort,b1+1L,b2-1L,a1);
  2152.  
  2153.  Rectangle (Win,a1,b1,a2,b2);
  2154.  
  2155.  if (TMASK & MASK) ShowTitle (Win->WScreen,TRUE);
  2156.  
  2157.  CurrentTime (&EndSec,&Dummy);
  2158.  
  2159.  DisplayBeep (Win->WScreen);
  2160.  
  2161.  return (EndSec-StartSec);
  2162. }
  2163.  
  2164. BOOL Preview (struct Window *Win,WORD Width,WORD Height)
  2165. {
  2166. struct Window *PreviewWin;
  2167.  
  2168. struct IntuiMessage *Message;
  2169.  
  2170. BOOL Error = FALSE;
  2171.  
  2172. UWORD MyCode = 0;
  2173.  
  2174. ULONG MyClass = NULL;
  2175.  
  2176.  MYBITMAP = CopyBitMap (Win,ZOOMLINE [6],ZOOMLINE [3],ZOOMLINE [4]-ZOOMLINE [6]+1,ZOOMLINE [5]-ZOOMLINE [3]+1);
  2177.  
  2178.  PreviewWin = OpenWindowTags (0,WA_Left,Win->LeftEdge + 25,
  2179.                                 WA_Top,Win->TopEdge + 35,
  2180.                                 WA_Width,(WORD) (Width  >> 1L),
  2181.                                 WA_Height,(WORD) (Height >> 1L),
  2182.                                 WA_Title,"Preview window",
  2183.                                 WA_ScreenTitle,"¼ Window preview...",
  2184.                                 WA_CustomScreen,Win->WScreen,
  2185.                                 WA_IDCMP,IDCMP_RAWKEY|IDCMP_CLOSEWINDOW,
  2186.                                 WA_Flags,WFLG_ACTIVATE|WFLG_CLOSEGADGET|WFLG_DRAGBAR|WFLG_NOCAREREFRESH|WFLG_SMART_REFRESH|WFLG_RMBTRAP|WFLG_GIMMEZEROZERO,
  2187.                                 WA_BusyPointer,TRUE,
  2188.                                 TAG_END);
  2189.  if (PreviewWin)
  2190.  {
  2191.     PasteBitMap (MYBITMAP,PreviewWin,ZOOMLINE [4]-ZOOMLINE [6]+1,ZOOMLINE [5]-ZOOMLINE [3]+1);
  2192.  
  2193.     PutPointer (PreviewWin,0,0,0,0,0,BUSY_POINTER);
  2194.  
  2195.     ELAPSEDTIME = DrawFractal (PreviewWin,0L,0L,(LONG) (PreviewWin->GZZWidth) - 1L,(LONG) (PreviewWin->GZZHeight) - 1L);
  2196.  
  2197.     PutPointer (PreviewWin,ZoomPointer,ZPW,ZPH,ZPXO,ZPYO,ZOOM_POINTER);
  2198.  
  2199.     ShowTime (Win,"Preview elapsed time:",ELAPSEDTIME);
  2200.  
  2201.     while (1L)
  2202.     {
  2203.          WaitPort (PreviewWin->UserPort);
  2204.  
  2205.          if (Message = (struct IntuiMessage *) GT_GetIMsg (PreviewWin->UserPort))
  2206.          {
  2207.             MyClass = Message->Class;
  2208.  
  2209.             MyCode  = Message->Code;
  2210.  
  2211.             GT_ReplyIMsg ((struct IntuiMessage *) Message);
  2212.          }
  2213.  
  2214.          if (MyClass == IDCMP_CLOSEWINDOW) break;
  2215.  
  2216.          if ((MyClass == IDCMP_RAWKEY) && (MyCode == RAW_ESC)) break;
  2217.     }
  2218.  
  2219.     PutPointer (PreviewWin,0,0,0,0,0,CLEAR_POINTER);
  2220.  
  2221.     CloseWindow (PreviewWin);
  2222.  }
  2223.  
  2224.  else
  2225.  {
  2226.     if (BMASK & MASK)
  2227.     {
  2228.        FreeBitMap (MYBITMAP);
  2229.  
  2230.        MASK ^= BMASK;
  2231.     }
  2232.  
  2233.     Fail (PreviewWindowError,15L);
  2234.  
  2235.     Error = TRUE;
  2236.  }
  2237.  
  2238.  return Error;
  2239. }
  2240.  
  2241. BOOL DrawFrame (struct Window *Win,WORD Zx,WORD Zy,WORD Zw,WORD Zh)
  2242. {
  2243. WORD LeftEdge,TopEdge,RightEdge,BottomEdge;
  2244.  
  2245.   if ((Zx > 2) && (Zy > 2) && (Zx < Win->Width - 2) && (Zy < Win->Height - 2) && ((Zw >= INITIALZOOM) || (Zh >= INITIALZOOM)))
  2246.   {
  2247.      LeftEdge   = Zx - Zw;
  2248.  
  2249.      TopEdge    = Zy - Zh;
  2250.  
  2251.      RightEdge  = Zx + Zw;
  2252.  
  2253.      BottomEdge = Zy + Zh;
  2254.  
  2255.      if ((LeftEdge >= 0) && (TopEdge >= 0) && (RightEdge <= Win->Width) && (BottomEdge <= Win->Height))
  2256.      {
  2257.         ZOOMLINE [8] = ZOOMLINE [0] = ZOOMLINE [6] = LeftEdge;
  2258.  
  2259.         ZOOMLINE [1] = ZOOMLINE [3] = TopEdge;
  2260.  
  2261.         ZOOMLINE [2] = ZOOMLINE [4] = RightEdge;
  2262.  
  2263.         ZOOMLINE [5] = ZOOMLINE [7] = BottomEdge;
  2264.  
  2265.         ZOOMLINE [9] = ZOOMLINE [1] + 1;
  2266.      }
  2267.  
  2268.      DrawBorder (Win->RPort,&MYBORDER,0,0);
  2269.  
  2270.      MASK |= ZMASK;
  2271.   }
  2272.  
  2273.   else MASK ^= ZMASK;
  2274.  
  2275.   return (BOOL) (ZMASK & MASK);
  2276. }
  2277.  
  2278. BOOL FileRequest (struct Window *Win,TEXT *String,TEXT *DrawerTxt,BOOL DrawerType,BOOL Save)
  2279. {
  2280. struct FileRequester *MyFileReq;
  2281.  
  2282. BOOL Success = FALSE;
  2283.  
  2284.  if (MyFileReq = AllocAslRequest (ASL_FileRequest,0))
  2285.  {
  2286.     MYDIR = (DrawerType ? PALETTESDIR : PICTURESDIR);
  2287.  
  2288.     if (! strlen (MYDIR)) strcpy (MYDIR,DrawerTxt);
  2289.  
  2290.     if (AslRequestTags (MyFileReq,ASLFR_Window,Win,
  2291.                                   ASLFR_InitialLeftEdge,Win->LeftEdge + 25,
  2292.                                   ASLFR_InitialTopEdge,Win->TopEdge + 35,
  2293.                                   ASLFR_InitialWidth,300,
  2294.                                   ASLFR_InitialHeight,((Win->Height) * 7) >> 3,
  2295.                                   ASLFR_SleepWindow,TRUE,
  2296.                                   ASLFR_TextAttr,&MYFONTSTRUCT,
  2297.                                   ASLFR_TitleText,String,
  2298.                                   ASLFR_InitialDrawer,MYDIR,
  2299.                                   ASLFR_InitialFile,MYFILE,
  2300.                                   ASLFR_DoSaveMode,Save,
  2301.                                   ASLFR_RejectIcons,TRUE,
  2302.                                   TAG_END))
  2303.     {
  2304.        strcpy (MYFILE,MyFileReq->rf_File);
  2305.  
  2306.        strcpy (MYDIR,MyFileReq->rf_Dir);
  2307.  
  2308.        strcpy (MYPATH,MYDIR);
  2309.  
  2310.        Success = AddPart (MYPATH,MYFILE,sizeof (MYPATH));
  2311.     }
  2312.  
  2313.     FreeAslRequest (MyFileReq);
  2314.  }
  2315.  
  2316.  return Success;
  2317. }
  2318.  
  2319. BOOL FontRequest (struct Window *Win)
  2320. {
  2321. struct FontRequester *MyFontReq;
  2322.  
  2323. BOOL Success = FALSE;
  2324.  
  2325.  if (MyFontReq = AllocAslRequest (ASL_FontRequest,0))
  2326.  {
  2327.     if (AslRequestTags (MyFontReq,ASLFO_Window,Win,
  2328.                                   ASLFO_InitialLeftEdge,Win->LeftEdge + 25,
  2329.                                   ASLFO_InitialTopEdge,Win->TopEdge + 35,
  2330.                                   ASLFO_InitialWidth,300,
  2331.                                   ASLFO_InitialHeight,((Win->Height) * 7) >> 3,
  2332.                                   ASLFO_SleepWindow,TRUE,
  2333.                                   ASLFO_TextAttr,&MYFONTSTRUCT,
  2334.                                   ASLFO_TitleText,"Font requester",
  2335.                                   ASLFO_InitialName,MYFONTSTRUCT.ta_Name,
  2336.                                   ASLFO_InitialSize,MYFONTSTRUCT.ta_YSize,
  2337.                                   ASLFO_InitialStyle,MYFONTSTRUCT.ta_Style,
  2338.                                   ASLFO_InitialFlags,MYFONTSTRUCT.ta_Flags,
  2339.                                   ASLFO_DoFrontPen,TRUE,
  2340.                                   ASLFO_DoBackPen,TRUE,
  2341.                                   ASLFO_DoStyle,TRUE,
  2342.                                   ASLFO_DoDrawMode,TRUE,
  2343.                                   ASLFO_MinHeight,8,
  2344.                                   ASLFO_MaxHeight,24,
  2345.                                   TAG_END))
  2346.     {
  2347.       strcpy (MYFONTSTRUCT.ta_Name,MyFontReq->fo_Attr.ta_Name);
  2348.  
  2349.       MYFONTSTRUCT.ta_YSize = MyFontReq->fo_Attr.ta_YSize;
  2350.  
  2351.       MYFONTSTRUCT.ta_Style = MyFontReq->fo_Attr.ta_Style;
  2352.  
  2353.       MYFONTSTRUCT.ta_Flags = MyFontReq->fo_Attr.ta_Flags;
  2354.  
  2355.       Success = TRUE;
  2356.     }
  2357.  
  2358.     FreeAslRequest (MyFontReq);
  2359.  }
  2360.  
  2361.  return Success;
  2362. }
  2363.  
  2364. static ULONG __saveds __asm SMFilterFunc (register __a0 struct Hook *Hook,register __a2 struct ScreenModeRequester *SMReq,register __a1 ULONG DisplayID)
  2365. {
  2366. DisplayInfoHandle DisplayHandle;
  2367.  
  2368. struct DisplayInfo DisplayInfo;
  2369.  
  2370. struct DimensionInfo DimensionInfo;
  2371.  
  2372. ULONG Accept = NULL;
  2373.  
  2374.   DisplayHandle = FindDisplayInfo (DisplayID);
  2375.  
  2376.   if (GetDisplayInfoData (DisplayHandle,(UBYTE *) &DisplayInfo,sizeof (struct DisplayInfo),DTAG_DISP,DisplayID))
  2377.   {
  2378.      if (GetDisplayInfoData (DisplayHandle,(UBYTE *) &DimensionInfo,sizeof (struct DimensionInfo),DTAG_DIMS,DisplayID))
  2379.      {
  2380.         Accept = (ULONG) (DimensionInfo.MaxDepth <= MAX_DEPTH) && ((DisplayInfo.PropertyFlags & DIPF_IS_WB) || (DisplayInfo.PropertyFlags & DIPF_IS_EXTRAHALFBRITE));
  2381.      }
  2382.   }
  2383.  
  2384.   return Accept;
  2385. }
  2386.  
  2387. BOOL SMRequest (struct ILBMInfo *Ilbm)
  2388. {
  2389. struct ScreenModeRequester *SMReq;
  2390.  
  2391. struct Window *Win = Ilbm->win;
  2392.  
  2393. BOOL NewScreen = FALSE;
  2394.  
  2395.  if (SMReq = AllocAslRequest (ASL_ScreenModeRequest,NULL))
  2396.  {
  2397.     if (AslRequestTags (SMReq,ASLSM_Window,Win,
  2398.                               ASLSM_SleepWindow,TRUE,
  2399.                               ASLSM_TitleText,"ScreenMode requester",
  2400.                               ASLSM_InitialLeftEdge,Win->LeftEdge + 25,
  2401.                               ASLSM_InitialTopEdge,Win->TopEdge + 35,
  2402.                               ASLSM_InitialWidth,310,
  2403.                               ASLSM_InitialHeight,((Win->Height) * 7) >> 3,
  2404.                               ASLSM_InitialDisplayID,GetVPModeID (Ilbm->vp),
  2405.                               ASLSM_InitialDisplayWidth,Win->Width,
  2406.                               ASLSM_InitialDisplayHeight,Win->Height,
  2407.                               ASLSM_InitialDisplayDepth,Ilbm->wrp->BitMap->Depth,
  2408.                               ASLSM_InitialOverscanType,Ilbm->ucliptype,
  2409.                               ASLSM_InitialInfoOpened,TRUE,
  2410.                               ASLSM_InitialInfoLeftEdge,Win->LeftEdge + 310 + 15,
  2411.                               ASLSM_InitialInfoTopEdge,Win->TopEdge,
  2412.                               ASLSM_DoWidth,TRUE,
  2413.                               ASLSM_DoHeight,TRUE,
  2414.                               ASLSM_DoDepth,TRUE,
  2415.                               ASLSM_DoOverscanType,TRUE,
  2416.                               ASLSM_MinDepth,MIN_DEPTH,
  2417.                               ASLSM_MaxDepth,MAX_DEPTH,
  2418.                               ASLSM_PropertyFlags,DIPF_IS_WB|DIPF_IS_EXTRAHALFBRITE,
  2419.                               ASLSM_PropertyMask,DIPF_IS_DUALPF|DIPF_IS_PF2PRI|DIPF_IS_HAM,
  2420.                               ASLSM_FilterFunc,&SMFILTERHOOK,
  2421.                               ASLSM_MinWidth,MIN_WIDTH,
  2422.                               ASLSM_MinHeight,MIN_HEIGHT,
  2423.                               TAG_END))
  2424.     {
  2425.        Ilbm->camg = SMReq->sm_DisplayID;
  2426.  
  2427.        Ilbm->Bmhd.w = SMReq->sm_DisplayWidth;
  2428.  
  2429.        Ilbm->Bmhd.h = SMReq->sm_DisplayHeight;
  2430.  
  2431.        Ilbm->Bmhd.nPlanes = SMReq->sm_DisplayDepth;
  2432.  
  2433.        Ilbm->ucliptype = SMReq->sm_OverscanType;
  2434.  
  2435.        NewScreen = TRUE;
  2436.     }
  2437.  
  2438.     FreeAslRequest (SMReq);
  2439.  }
  2440.  
  2441.  return NewScreen;
  2442. }
  2443.  
  2444. VOID SetMenuStart (struct Window *Win)
  2445. {
  2446.   OnMenu  (Win,FULLMENUNUM (0,0,NOSUB));
  2447.  
  2448.   OnMenu  (Win,FULLMENUNUM (0,2,NOSUB));
  2449.  
  2450.   OnMenu  (Win,FULLMENUNUM (0,3,NOSUB));
  2451.  
  2452.   OnMenu  (Win,FULLMENUNUM (0,4,NOSUB));
  2453.  
  2454.   OnMenu  (Win,FULLMENUNUM (0,5,NOSUB));
  2455.  
  2456.   OnMenu  (Win,FULLMENUNUM (0,7,NOSUB));
  2457.  
  2458.   OnMenu  (Win,FULLMENUNUM (0,9,NOSUB));
  2459.  
  2460.   OnMenu  (Win,FULLMENUNUM (1,0,NOSUB));
  2461.  
  2462.   OnMenu  (Win,FULLMENUNUM (1,1,NOSUB));
  2463.  
  2464.   OnMenu  (Win,FULLMENUNUM (1,2,NOSUB));
  2465.  
  2466.   OnMenu  (Win,FULLMENUNUM (1,4,NOSUB));
  2467.  
  2468.   OnMenu  (Win,FULLMENUNUM (2,2,NOSUB));
  2469.  
  2470.   OnMenu  (Win,FULLMENUNUM (2,4,NOSUB));
  2471.  
  2472.   OffMenu (Win,FULLMENUNUM (2,7,NOSUB));
  2473.  
  2474.   OnMenu  (Win,FULLMENUNUM (3,0,NOSUB));
  2475.  
  2476.   OnMenu  (Win,FULLMENUNUM (3,2,NOSUB));
  2477.  
  2478.   OnMenu  (Win,FULLMENUNUM (3,4,NOSUB));
  2479.  
  2480.   OnMenu  (Win,FULLMENUNUM (3,6,NOSUB));
  2481. }
  2482.  
  2483. VOID SetMenuStop (struct Window *Win)
  2484. {
  2485.   OffMenu  (Win,FULLMENUNUM (0,0,NOSUB));
  2486.  
  2487.   OffMenu  (Win,FULLMENUNUM (0,2,NOSUB));
  2488.  
  2489.   OffMenu  (Win,FULLMENUNUM (0,3,NOSUB));
  2490.  
  2491.   OffMenu  (Win,FULLMENUNUM (0,4,NOSUB));
  2492.  
  2493.   OffMenu  (Win,FULLMENUNUM (0,5,NOSUB));
  2494.  
  2495.   OffMenu  (Win,FULLMENUNUM (0,7,NOSUB));
  2496.  
  2497.   OffMenu  (Win,FULLMENUNUM (0,9,NOSUB));
  2498.  
  2499.   OffMenu  (Win,FULLMENUNUM (1,0,NOSUB));
  2500.  
  2501.   OffMenu  (Win,FULLMENUNUM (1,1,NOSUB));
  2502.  
  2503.   OffMenu  (Win,FULLMENUNUM (1,2,NOSUB));
  2504.  
  2505.   OffMenu  (Win,FULLMENUNUM (1,4,NOSUB));
  2506.  
  2507.   OffMenu  (Win,FULLMENUNUM (2,0,NOSUB));
  2508.  
  2509.   OffMenu  (Win,FULLMENUNUM (2,2,NOSUB));
  2510.  
  2511.   OffMenu  (Win,FULLMENUNUM (2,4,NOSUB));
  2512.  
  2513.   OffMenu  (Win,FULLMENUNUM (2,6,NOSUB));
  2514.  
  2515.   OnMenu   (Win,FULLMENUNUM (2,7,NOSUB));
  2516.  
  2517.   OffMenu  (Win,FULLMENUNUM (3,0,NOSUB));
  2518.  
  2519.   OffMenu  (Win,FULLMENUNUM (3,2,NOSUB));
  2520.  
  2521.   OffMenu  (Win,FULLMENUNUM (3,4,NOSUB));
  2522.  
  2523.   OffMenu  (Win,FULLMENUNUM (3,6,NOSUB));
  2524. }
  2525.  
  2526. ULONG ProcessMenu (struct Window *Win,UWORD Code)
  2527. {
  2528. struct MenuItem *Item;
  2529.  
  2530. ULONG Choice = NULL;
  2531.  
  2532.  while (Code != MENUNULL)
  2533.  {
  2534.   Item = ItemAddress (MAINMENU,(ULONG) Code);
  2535.  
  2536.   switch (MENUNUM (Code))
  2537.   {
  2538.         case 0:    switch (ITEMNUM (Code))
  2539.                    {
  2540.                         case 0: Choice |= ABOUT_MSG;
  2541.  
  2542.                                 break;
  2543.  
  2544.                         case 2: Choice |= LOADPICTURE_MSG;
  2545.  
  2546.                                 break;
  2547.  
  2548.                         case 3: Choice |= SAVEPICTURE_MSG;
  2549.  
  2550.                                 break;
  2551.  
  2552.                         case 4: Choice |= LOADPALETTE_MSG;
  2553.  
  2554.                                 break;
  2555.  
  2556.                         case 5: Choice |= SAVEPALETTE_MSG;
  2557.  
  2558.                                 break;
  2559.  
  2560.                         case 7: Choice |= DUMP_MSG;
  2561.  
  2562.                                 break;
  2563.  
  2564.                         case 9: Choice |= EXIT_MSG;
  2565.  
  2566.                                 break;
  2567.                    }
  2568.  
  2569.                    break;
  2570.  
  2571.         case 1:    switch (ITEMNUM (Code))
  2572.                    {
  2573.                         case 0: switch (SUBNUM (Code))
  2574.                                 {
  2575.                                    case 0: Choice |= TITLE_MSG;
  2576.  
  2577.                                            break;
  2578.  
  2579.                                    case 2: Choice |= TIME_MSG;
  2580.  
  2581.                                            break;
  2582.                                 }
  2583.  
  2584.                                 break;
  2585.  
  2586.                         case 1: Choice |= COORDS_MSG;
  2587.  
  2588.                                 break;
  2589.  
  2590.                         case 2: switch (SUBNUM (Code))
  2591.                                 {
  2592.                                    case 0: MAX_ITERATIONS = 63;
  2593.  
  2594.                                            break;
  2595.  
  2596.                                    case 1: MAX_ITERATIONS = 127;
  2597.  
  2598.                                            break;
  2599.  
  2600.                                    case 2: MAX_ITERATIONS = 191;
  2601.  
  2602.                                            break;
  2603.  
  2604.                                    case 3: MAX_ITERATIONS = 255;
  2605.  
  2606.                                            break;
  2607.  
  2608.                                    case 4: MAX_ITERATIONS = 319;
  2609.  
  2610.                                            break;
  2611.  
  2612.                                    case 5: MAX_ITERATIONS = 383;
  2613.  
  2614.                                            break;
  2615.  
  2616.                                    case 6: MAX_ITERATIONS = 447;
  2617.  
  2618.                                            break;
  2619.  
  2620.                                    case 7: MAX_ITERATIONS = 511;
  2621.  
  2622.                                            break;
  2623.  
  2624.                                    case 8: MAX_ITERATIONS = 1023;
  2625.  
  2626.                                            break;
  2627.  
  2628.                                   case 10: Choice |= ITER_MSG;
  2629.  
  2630.                                            break;
  2631.                                 }
  2632.  
  2633.                                 break;
  2634.  
  2635.                         case 3: switch (SUBNUM (Code))
  2636.                                 {
  2637.                                    case  0: PRIORITY = -5;
  2638.  
  2639.                                             break;
  2640.  
  2641.                                    case  1: PRIORITY = -4;
  2642.  
  2643.                                             break;
  2644.  
  2645.                                    case  2: PRIORITY = -3;
  2646.  
  2647.                                             break;
  2648.  
  2649.                                    case  3: PRIORITY = -2;
  2650.  
  2651.                                             break;
  2652.  
  2653.                                    case  4: PRIORITY = -1;
  2654.  
  2655.                                             break;
  2656.  
  2657.                                    case  6: PRIORITY =  0;
  2658.  
  2659.                                             break;
  2660.  
  2661.                                    case  8: PRIORITY =  1;
  2662.  
  2663.                                             break;
  2664.  
  2665.                                    case  9: PRIORITY =  2;
  2666.  
  2667.                                             break;
  2668.  
  2669.                                    case 10: PRIORITY =  3;
  2670.  
  2671.                                             break;
  2672.  
  2673.                                    case 11: PRIORITY =  4;
  2674.  
  2675.                                             break;
  2676.  
  2677.                                    case 12: PRIORITY =  5;
  2678.  
  2679.                                             break;
  2680.  
  2681.                                 }
  2682.  
  2683.                                 Forbid ();
  2684.  
  2685.                                 THISTASK = FindTask (NULL);
  2686.  
  2687.                                 Permit ();
  2688.  
  2689.                                 SetTaskPri (THISTASK,PRIORITY);
  2690.  
  2691.                                 break;
  2692.  
  2693.                         case 4: switch (SUBNUM (Code))
  2694.                                 {
  2695.                                    case 0: if (CheckEHB (GetVPModeID (ViewPortAddress (Win))))
  2696.                                            {
  2697.                                               H_LINE = HLine_R_EHB;
  2698.  
  2699.                                               V_LINE = VLine_R_EHB;
  2700.                                            }
  2701.  
  2702.                                            else
  2703.                                            {
  2704.                                               H_LINE = HLine_R;
  2705.  
  2706.                                               V_LINE = VLine_R;
  2707.                                            }
  2708.  
  2709.                                            SPREAD = FALSE;
  2710.  
  2711.                                            break;
  2712.  
  2713.                                    case 1: if (CheckEHB (GetVPModeID (ViewPortAddress (Win))))
  2714.                                            {
  2715.                                               H_LINE = HLine_S_EHB;
  2716.  
  2717.                                               V_LINE = VLine_S_EHB;
  2718.                                            }
  2719.  
  2720.                                            else
  2721.                                            {
  2722.                                               H_LINE = HLine_S;
  2723.  
  2724.                                               V_LINE = VLine_S;
  2725.                                            }
  2726.  
  2727.                                            SPREAD = TRUE;
  2728.  
  2729.                                            break;
  2730.                                 }
  2731.  
  2732.                                 break;
  2733.  
  2734.                         case 5: switch (SUBNUM (Code))
  2735.                                 {
  2736.                                    case 0: FUNCTION = Integer;
  2737.  
  2738.                                            break;
  2739.  
  2740.                                    case 1: FUNCTION = Real;
  2741.  
  2742.                                            break;
  2743.  
  2744.                                    case 2: FUNCTION = Ppc;
  2745.  
  2746.                                            break;
  2747.                                 }
  2748.  
  2749.                                 break;
  2750.                    }
  2751.  
  2752.                    break;
  2753.  
  2754.         case 2: switch (ITEMNUM (Code))
  2755.                 {
  2756.                    case 0: Choice |= PREVIEW_MSG;
  2757.  
  2758.                            break;
  2759.  
  2760.                    case 2: Choice |= REDRAW_MSG;
  2761.  
  2762.                            break;
  2763.  
  2764.                    case 4: Choice |= UNDO_MSG;
  2765.  
  2766.                            break;
  2767.  
  2768.                    case 6: Choice |= DRAW_MSG;
  2769.  
  2770.                            break;
  2771.  
  2772.                    case 7: Choice |= STOP_MSG;
  2773.  
  2774.                            break;
  2775.                 }
  2776.  
  2777.                 break;
  2778.  
  2779.         case 3: switch (ITEMNUM (Code))
  2780.                 {
  2781.                    case 0: switch (SUBNUM (Code))
  2782.                            {
  2783.                               case 0: Choice |= CYCLERIGHT_MSG;
  2784.  
  2785.                                       break;
  2786.  
  2787.                               case 1: Choice |= CYCLELEFT_MSG;
  2788.  
  2789.                                       break;
  2790.  
  2791.                               case 3: Choice |= DELAY_MSG;
  2792.  
  2793.                                       break;
  2794.  
  2795.                            }
  2796.  
  2797.                            break;
  2798.  
  2799.                    case 2: Choice |= PALETTE_MSG;
  2800.  
  2801.                            break;
  2802.  
  2803.                    case 4: Choice |= NEWDISPLAY_MSG;
  2804.  
  2805.                            break;
  2806.  
  2807.                    case 6: Choice |= FONTREQ_MSG;
  2808.  
  2809.                            break;
  2810.                 }
  2811.   }
  2812.  
  2813.  Code = Item->NextSelect;
  2814.  }
  2815.  
  2816.  return Choice;
  2817. }
  2818.  
  2819. VOID ProcessMouse (struct Window *Win,WORD CurMouseX,WORD CurMouseY)
  2820. {
  2821. static WORD MX1 = 0 , MY1 = 0 , MX2 = 0 , MY2 = 0, W = 0, H = 0;
  2822.  
  2823. struct IntuiMessage *Message;
  2824.  
  2825. UWORD MyCode = 0;
  2826.  
  2827. LONG DefaultQueue;
  2828.  
  2829. ULONG MyClass = NULL;
  2830.  
  2831.    ModifyIDCMP (Win,IDCMP_MOUSEBUTTONS | IDCMP_MOUSEMOVE);
  2832.  
  2833.    DefaultQueue = SetMouseQueue (Win,10);
  2834.  
  2835.    if (ZMASK & MASK) DrawFrame (Win,MX1,MY1,W,H);
  2836.  
  2837.    MX1 = CurMouseX;
  2838.  
  2839.    MY1 = CurMouseY;
  2840.  
  2841.    W = INITIALZOOM;
  2842.  
  2843.    H = ScalerDiv ((LONG) W,(ULONG) Win->Height,(ULONG) Win->Width);
  2844.  
  2845.    DrawFrame (Win,MX1,MY1,W,H);
  2846.  
  2847.    while (1L)
  2848.    {
  2849.      WaitPort (Win->UserPort);
  2850.  
  2851.      if (Message = (struct IntuiMessage *) GT_GetIMsg (Win->UserPort))
  2852.      {
  2853.         MyClass = Message->Class;
  2854.  
  2855.         MyCode = Message->Code;
  2856.  
  2857.         MX2 = Message->MouseX;
  2858.  
  2859.         MY2 = Message->MouseY;
  2860.  
  2861.         GT_ReplyIMsg ((struct IntuiMessage *) Message);
  2862.      }
  2863.  
  2864.      if (MyClass == IDCMP_MOUSEMOVE)
  2865.      {
  2866.         DrawFrame (Win,MX1,MY1,W,H);
  2867.  
  2868.         W = abs (MX1 - MX2);
  2869.  
  2870.         H = abs (MY1 - MY2);
  2871.  
  2872.         if (W > H) (W = ScalerDiv ((LONG) H,(ULONG) Win->Width,(ULONG) Win->Height));
  2873.  
  2874.         else (H = ScalerDiv ((LONG) W,(ULONG) Win->Height,(ULONG) Win->Width));
  2875.  
  2876.         DrawFrame (Win,MX1,MY1,W,H);
  2877.      }
  2878.  
  2879.      else if ((MyClass == IDCMP_MOUSEBUTTONS) && (MyCode != SELECTDOWN)) break;
  2880.    }
  2881.  
  2882.    SetMouseQueue (Win,(ULONG) DefaultQueue);
  2883.  
  2884.    ModifyIDCMP (Win,IDCMP_STANDARD);
  2885.  
  2886.    if (ZMASK & MASK)
  2887.    {
  2888.       OnMenu  (Win,FULLMENUNUM (2,0,NOSUB));
  2889.  
  2890.       OnMenu  (Win,FULLMENUNUM (2,6,NOSUB));
  2891.    }
  2892.  
  2893.    else
  2894.    {
  2895.       OffMenu  (Win,FULLMENUNUM (2,0,NOSUB));
  2896.  
  2897.       OffMenu  (Win,FULLMENUNUM (2,6,NOSUB));
  2898.    }
  2899. }
  2900.  
  2901. ULONG HandleEvents (struct ILBMInfo *Ilbm)
  2902. {
  2903. struct IntuiMessage *Message;
  2904.  
  2905. WORD MouseX = 0,MouseY = 0;
  2906.  
  2907. UWORD MyCode = 0;
  2908.  
  2909. LONG Error;
  2910.  
  2911. ULONG MyClass = NULL,MyMenu = NULL,Index;
  2912.  
  2913. DOUBLE RealCoord,ImagCoord,ScrRatio,FracRatio;
  2914.  
  2915.  PutPointer (Ilbm->win,ZoomPointer,ZPW,ZPH,ZPXO,ZPYO,ZOOM_POINTER);
  2916.  
  2917.  do { WaitPort (Ilbm->win->UserPort);
  2918.  
  2919.       if (Message = (struct IntuiMessage *) GT_GetIMsg (Ilbm->win->UserPort))
  2920.       {
  2921.              MyClass = Message->Class;
  2922.  
  2923.              MyCode  = Message->Code;
  2924.  
  2925.              MouseX  = Message->MouseX;
  2926.  
  2927.              MouseY  = Message->MouseY;
  2928.  
  2929.              GT_ReplyIMsg ((struct IntuiMessage *) Message);
  2930.       }
  2931.  
  2932.       switch (MyClass)
  2933.       {
  2934.              case    IDCMP_MOUSEMOVE: if (TMASK & MASK)
  2935.                                       {
  2936.                                          RealCoord = RMIN + ((DOUBLE) MouseX * fabs (RMAX-RMIN) / (DOUBLE) (Ilbm->win->Width - 1));
  2937.  
  2938.                                          ImagCoord = IMAX - ((DOUBLE) MouseY * fabs (IMAX-IMIN) / (DOUBLE) (Ilbm->win->Height - 1));
  2939.  
  2940.                                          ScrRatio  = (DOUBLE) Ilbm->win->Width / (DOUBLE) Ilbm->win->Height;
  2941.  
  2942.                                          FracRatio = fabs (RMAX-RMIN) / fabs (IMAX-IMIN);
  2943.  
  2944.                                          sprintf (BAR_STRING,"Real %+2.16lf Imag %+2.16lfi W:H %.5lf R:I %.5lf",RealCoord,ImagCoord,ScrRatio,FracRatio);
  2945.  
  2946.                                          WaitTOF ();
  2947.  
  2948.                                          SetWindowTitles (Ilbm->win,(TEXT *) ~0,BAR_STRING);
  2949.                                       }
  2950.  
  2951.                                       break;
  2952.  
  2953.              case IDCMP_MOUSEBUTTONS: if (MyCode == SELECTDOWN) ProcessMouse (Ilbm->win,MouseX,MouseY);
  2954.  
  2955.                                       break;
  2956.  
  2957.              case     IDCMP_MENUPICK: MyMenu = ProcessMenu (Ilbm->win,MyCode);
  2958.  
  2959.                                       if (MyMenu & EXIT_MSG) break;
  2960.  
  2961.                                       if (MyMenu & TITLE_MSG)
  2962.                                       {
  2963.                                          if (TMASK & MASK) MASK ^= TMASK;
  2964.  
  2965.                                          else MASK |= TMASK;
  2966.  
  2967.                                          Ilbm->TBState = TMASK & MASK;
  2968.  
  2969.                                          ShowTitle (Ilbm->scr,(LONG) Ilbm->TBState);
  2970.  
  2971.                                          break;
  2972.                                       }
  2973.  
  2974.                                       if (MyMenu & TIME_MSG)
  2975.                                       {
  2976.                                          if (! (TMASK & MASK)) ShowTitle (Ilbm->scr,TRUE);
  2977.  
  2978.                                          ShowTime (Ilbm->win,"Last calculating time:",ELAPSEDTIME);
  2979.  
  2980.                                          Delay (MYSECS);
  2981.  
  2982.                                          if (! (TMASK & MASK)) ShowTitle (Ilbm->scr,FALSE);
  2983.  
  2984.                                          break;
  2985.                                       }
  2986.  
  2987.                                       if (MyMenu & ITER_MSG)
  2988.                                       {
  2989.                                          ModifyIDCMP (Ilbm->win,NULL);
  2990.  
  2991.                                          ClearMenuStrip (Ilbm->win);
  2992.  
  2993.                                          while (1L)
  2994.                                          {
  2995.                                             MAX_ITERATIONS = (WORD) IntegerGad (Ilbm->win,"Iterations requester","Insert new iterations...","_Iterations",MAX_ITERATIONS + 1L) - 1L;
  2996.  
  2997.                                             if (MAX_ITERATIONS >= MIN_ITERATIONS) break;
  2998.  
  2999.                                             DisplayBeep (Ilbm->scr);
  3000.  
  3001.                                             MAX_ITERATIONS = MIN_ITERATIONS;
  3002.                                          }
  3003.  
  3004.                                          ResetMenuStrip (Ilbm->win,MAINMENU);
  3005.  
  3006.                                          ModifyIDCMP (Ilbm->win,IDCMP_STANDARD);
  3007.  
  3008.                                          break;
  3009.                                       }
  3010.  
  3011.                                       if (MyMenu & ABOUT_MSG)
  3012.                                       {
  3013.                                          ModifyIDCMP (Ilbm->win,NULL);
  3014.  
  3015.                                          ClearMenuStrip (Ilbm->win);
  3016.  
  3017.                                          About (Ilbm->win);
  3018.  
  3019.                                          ResetMenuStrip (Ilbm->win,MAINMENU);
  3020.  
  3021.                                          ModifyIDCMP (Ilbm->win,IDCMP_STANDARD);
  3022.  
  3023.                                          break;
  3024.                                       }
  3025.  
  3026.                                       if (MyMenu & PALETTE_MSG)
  3027.                                       {
  3028.                                          ModifyIDCMP (Ilbm->win,NULL);
  3029.  
  3030.                                          ClearMenuStrip (Ilbm->win);
  3031.  
  3032.                                          if (! ModifyPalette (Ilbm->win,Ilbm->win->LeftEdge + 25,Ilbm->win->TopEdge + 35,PALETTE)) Fail (PaletteRequesterError,15L);
  3033.  
  3034.                                          ResetMenuStrip (Ilbm->win,MAINMENU);
  3035.  
  3036.                                          ModifyIDCMP (Ilbm->win,IDCMP_STANDARD);
  3037.  
  3038.                                          break;
  3039.                                       }
  3040.  
  3041.                                       if (MyMenu & CYCLERIGHT_MSG)
  3042.                                       {
  3043.                                          ModifyIDCMP (Ilbm->win,IDCMP_MOUSEBUTTONS|IDCMP_RAWKEY|IDCMP_MENUPICK);
  3044.  
  3045.                                          if (TMASK & MASK) ShowTitle (Ilbm->scr,FALSE);
  3046.  
  3047.                                          ClearMenuStrip (Ilbm->win);
  3048.  
  3049.                                          PutPointer (Ilbm->win,0,0,0,0,0,BUSY_POINTER);
  3050.  
  3051.                                          Cycle (Ilbm->win,DELAY,SHIFTRIGHT);
  3052.  
  3053.                                          PutPointer (Ilbm->win,ZoomPointer,ZPW,ZPH,ZPXO,ZPYO,ZOOM_POINTER);
  3054.  
  3055.                                          ResetMenuStrip (Ilbm->win,MAINMENU);
  3056.  
  3057.                                          if (TMASK & MASK) ShowTitle (Ilbm->scr,TRUE);
  3058.  
  3059.                                          LoadRGB32 (Ilbm->vp,PALETTE);
  3060.  
  3061.                                          ModifyIDCMP (Ilbm->win,IDCMP_STANDARD);
  3062.  
  3063.                                          break;
  3064.                                       }
  3065.  
  3066.                                       if (MyMenu & CYCLELEFT_MSG)
  3067.                                       {
  3068.                                          ModifyIDCMP (Ilbm->win,IDCMP_MOUSEBUTTONS|IDCMP_RAWKEY|IDCMP_MENUPICK);
  3069.  
  3070.                                          if (TMASK & MASK) ShowTitle (Ilbm->scr,FALSE);
  3071.  
  3072.                                          ClearMenuStrip (Ilbm->win);
  3073.  
  3074.                                          PutPointer (Ilbm->win,0,0,0,0,0,BUSY_POINTER);
  3075.  
  3076.                                          Cycle (Ilbm->win,DELAY,SHIFTLEFT);
  3077.  
  3078.                                          PutPointer (Ilbm->win,ZoomPointer,ZPW,ZPH,ZPXO,ZPYO,ZOOM_POINTER);
  3079.  
  3080.                                          ResetMenuStrip (Ilbm->win,MAINMENU);
  3081.  
  3082.                                          if (TMASK & MASK) ShowTitle (Ilbm->scr,TRUE);
  3083.  
  3084.                                          LoadRGB32 (Ilbm->vp,PALETTE);
  3085.  
  3086.                                          ModifyIDCMP (Ilbm->win,IDCMP_STANDARD);
  3087.  
  3088.                                          break;
  3089.                                       }
  3090.  
  3091.                                       if (MyMenu & DELAY_MSG)
  3092.                                       {
  3093.                                          while (1L)
  3094.                                          {
  3095.                                             DELAY = IntegerGad (Ilbm->win,"Delay requester","Insert delay time...","_Delay time",DELAY);
  3096.  
  3097.                                             if ((DELAY >= 0L) && (DELAY <= 100)) break;
  3098.  
  3099.                                             DisplayBeep (Ilbm->scr);
  3100.                                          }
  3101.  
  3102.                                          break;
  3103.                                       }
  3104.  
  3105.                                       if (MyMenu & STOP_MSG)
  3106.                                       {
  3107.                                          SetMenuStart (Ilbm->win);
  3108.  
  3109.                                          PutPointer (Ilbm->win,ZoomPointer,ZPW,ZPH,ZPXO,ZPYO,ZOOM_POINTER);
  3110.  
  3111.                                          break;
  3112.                                       }
  3113.  
  3114.                                       if (MyMenu & LOADPICTURE_MSG)
  3115.                                       {
  3116.                                          if (FileRequest (Ilbm->win,"Load iff picture","PROGDIR:Pictures",PICTURES_DRAWER,FALSE))
  3117.                                          {
  3118.                                             PutPointer (Ilbm->win,0,0,0,0,0,BUSY_POINTER);
  3119.  
  3120.                                             if (Ilbm->ParseInfo.iff = AllocIFF ())
  3121.                                             {
  3122.                                                if (! (Error = QueryMandPic (Ilbm,&MANDChunkTmp,MYPATH)))
  3123.                                                {
  3124.                                                   MANDChunk = *MANDChunkTmp;
  3125.  
  3126.                                                   SaveCoords ();
  3127.  
  3128.                                                   RMIN = MANDChunk.RMin;
  3129.  
  3130.                                                   RMAX = MANDChunk.RMax;
  3131.  
  3132.                                                   IMIN = MANDChunk.IMin;
  3133.  
  3134.                                                   IMAX = MANDChunk.IMax;
  3135.  
  3136.                                                   MAX_ITERATIONS = MANDChunk.Iterations - 1L;
  3137.  
  3138.                                                   if (MANDChunk.Special & SPREAD_BIT) SPREAD = TRUE;
  3139.  
  3140.                                                   else SPREAD = FALSE;
  3141.  
  3142.                                                   if (MANDChunk.Special & INTEGER_BIT) FUNCTION = Integer;
  3143.  
  3144.                                                   if (MANDChunk.Special & REAL_BIT) FUNCTION = Real;
  3145.  
  3146.                                                   if (MANDChunk.Special & PPC_BIT) FUNCTION = Ppc;
  3147.  
  3148.                                                   Fade (MYILBM.win,PALETTE,25L,1L,TOBLACK);
  3149.  
  3150.                                                   CloseDisplay (Ilbm,VINFO);
  3151.  
  3152.                                                   Ilbm->IFFPFlags = IFFPF_BESTFIT;
  3153.  
  3154.                                                   CURRENT_MAX_COLORS = MakeDisplay (Ilbm);
  3155.  
  3156.                                                   Ilbm->IFFPFlags = NULL;
  3157.  
  3158.                                                   if (! CURRENT_MAX_COLORS)
  3159.                                                   {
  3160.                                                      Fail (MakeDisplayError,20L);
  3161.  
  3162.                                                      MyMenu = EXIT_MSG;
  3163.  
  3164.                                                      break;
  3165.                                                   }
  3166.  
  3167.                                                   if (ZMASK & MASK) MASK ^= ZMASK;
  3168.  
  3169.                                                   CURRENT_MAX_COLORS -= RESERVED_PENS;
  3170.  
  3171.                                                   if (TMASK & MASK) ShowTitle (Ilbm->scr,FALSE);
  3172.  
  3173.                                                   if (LoadMandPic (Ilbm,MYPATH)) Fail (LoadMandPicError,5L);
  3174.  
  3175.                                                   if (TMASK & MASK) ShowTitle (Ilbm->scr,TRUE);
  3176.  
  3177.                                                   if (Ilbm->EHB) GetRGB32 (Ilbm->vp->ColorMap,0L,32L,&(PALETTE [1L]));
  3178.  
  3179.                                                   else GetRGB32 (Ilbm->vp->ColorMap,0L,(ULONG) Ilbm->vp->ColorMap->Count,&(PALETTE [1L]));
  3180.  
  3181.                                                   ClearMenuStrip (Ilbm->win);
  3182.  
  3183.                                                   if (SPREAD)
  3184.                                                   {
  3185.                                                      if (ItemAddress (MAINMENU,FULLMENUNUM (1,4,0))->Flags & CHECKED) ItemAddress (MAINMENU,FULLMENUNUM (1,4,0))->Flags ^= CHECKED;
  3186.  
  3187.                                                      if (! (ItemAddress (MAINMENU,FULLMENUNUM (1,4,1))->Flags & CHECKED)) ItemAddress (MAINMENU,FULLMENUNUM (1,4,1))->Flags |= CHECKED;
  3188.  
  3189.                                                      if (CheckEHB (Ilbm->camg))
  3190.                                                      {
  3191.                                                         H_LINE = HLine_S_EHB;
  3192.  
  3193.                                                         V_LINE = VLine_S_EHB;
  3194.                                                      }
  3195.  
  3196.                                                      else
  3197.                                                      {
  3198.                                                         H_LINE = HLine_S;
  3199.  
  3200.                                                         V_LINE = VLine_S;
  3201.                                                      }
  3202.                                                   }
  3203.  
  3204.                                                   else
  3205.                                                   {
  3206.                                                      if (ItemAddress (MAINMENU,FULLMENUNUM (1,4,1))->Flags & CHECKED) ItemAddress (MAINMENU,FULLMENUNUM (1,4,1))->Flags ^= CHECKED;
  3207.  
  3208.                                                      if (! (ItemAddress (MAINMENU,FULLMENUNUM (1,4,0))->Flags & CHECKED)) ItemAddress (MAINMENU,FULLMENUNUM (1,4,0))->Flags |= CHECKED;
  3209.  
  3210.                                                      if (CheckEHB (Ilbm->camg))
  3211.                                                      {
  3212.                                                         H_LINE = HLine_R_EHB;
  3213.  
  3214.                                                         V_LINE = VLine_R_EHB;
  3215.                                                      }
  3216.  
  3217.                                                      else
  3218.                                                      {
  3219.                                                         H_LINE = HLine_R;
  3220.  
  3221.                                                         V_LINE = VLine_R;
  3222.                                                      }
  3223.                                                   }
  3224.  
  3225.                                                   for (Index = 0; Index <= 10; Index++) if (ItemAddress (MAINMENU,FULLMENUNUM (1,2,Index))->Flags & CHECKED) ItemAddress (MAINMENU,FULLMENUNUM (1,2,Index))->Flags ^= CHECKED;
  3226.  
  3227.                                                   switch (MAX_ITERATIONS)
  3228.                                                   {
  3229.                                                     case 63 :  if (! (ItemAddress (MAINMENU,FULLMENUNUM (1,2,0))->Flags & CHECKED)) ItemAddress (MAINMENU,FULLMENUNUM (1,2,0))->Flags |= CHECKED;
  3230.  
  3231.                                                                break;
  3232.  
  3233.                                                     case 127:  if (! (ItemAddress (MAINMENU,FULLMENUNUM (1,2,1))->Flags & CHECKED)) ItemAddress (MAINMENU,FULLMENUNUM (1,2,1))->Flags |= CHECKED;
  3234.  
  3235.                                                                break;
  3236.  
  3237.                                                     case 191:  if (! (ItemAddress (MAINMENU,FULLMENUNUM (1,2,2))->Flags & CHECKED)) ItemAddress (MAINMENU,FULLMENUNUM (1,2,2))->Flags |= CHECKED;
  3238.  
  3239.                                                                break;
  3240.  
  3241.                                                     case 255:  if (! (ItemAddress (MAINMENU,FULLMENUNUM (1,2,3))->Flags & CHECKED)) ItemAddress (MAINMENU,FULLMENUNUM (1,2,3))->Flags |= CHECKED;
  3242.  
  3243.                                                                break;
  3244.  
  3245.                                                     case 319:  if (! (ItemAddress (MAINMENU,FULLMENUNUM (1,2,4))->Flags & CHECKED)) ItemAddress (MAINMENU,FULLMENUNUM (1,2,4))->Flags |= CHECKED;
  3246.  
  3247.                                                                break;
  3248.  
  3249.                                                     case 383:  if (! (ItemAddress (MAINMENU,FULLMENUNUM (1,2,5))->Flags & CHECKED)) ItemAddress (MAINMENU,FULLMENUNUM (1,2,5))->Flags |= CHECKED;
  3250.  
  3251.                                                                break;
  3252.  
  3253.                                                     case 447:  if (! (ItemAddress (MAINMENU,FULLMENUNUM (1,2,6))->Flags & CHECKED)) ItemAddress (MAINMENU,FULLMENUNUM (1,2,6))->Flags |= CHECKED;
  3254.  
  3255.                                                                break;
  3256.  
  3257.                                                     case 511:  if (! (ItemAddress (MAINMENU,FULLMENUNUM (1,2,7))->Flags & CHECKED)) ItemAddress (MAINMENU,FULLMENUNUM (1,2,7))->Flags |= CHECKED;
  3258.  
  3259.                                                                break;
  3260.  
  3261.                                                     case 1023: if (! (ItemAddress (MAINMENU,FULLMENUNUM (1,2,8))->Flags & CHECKED)) ItemAddress (MAINMENU,FULLMENUNUM (1,2,8))->Flags |= CHECKED;
  3262.  
  3263.                                                                break;
  3264.  
  3265.                                                     default:   if (! (ItemAddress (MAINMENU,FULLMENUNUM (1,2,10))->Flags & CHECKED)) ItemAddress (MAINMENU,FULLMENUNUM (1,2,10))->Flags |= CHECKED;
  3266.  
  3267.                                                                break;
  3268.                                                   }
  3269.  
  3270.                                                   if (FUNCTION == Integer)
  3271.                                                   {
  3272.                                                      if (ItemAddress (MAINMENU,FULLMENUNUM (1,5,1))->Flags & CHECKED) ItemAddress (MAINMENU,FULLMENUNUM (1,5,1))->Flags ^= CHECKED;
  3273.  
  3274.                                                      if (ItemAddress (MAINMENU,FULLMENUNUM (1,5,2))->Flags & CHECKED) ItemAddress (MAINMENU,FULLMENUNUM (1,5,2))->Flags ^= CHECKED;
  3275.  
  3276.                                                      if (! (ItemAddress (MAINMENU,FULLMENUNUM (1,5,0))->Flags & CHECKED)) ItemAddress (MAINMENU,FULLMENUNUM (1,5,0))->Flags |= CHECKED;
  3277.                                                   }
  3278.  
  3279.                                                   if (FUNCTION == Real)
  3280.                                                   {
  3281.                                                      if (ItemAddress (MAINMENU,FULLMENUNUM (1,5,0))->Flags & CHECKED) ItemAddress (MAINMENU,FULLMENUNUM (1,5,0))->Flags ^= CHECKED;
  3282.  
  3283.                                                      if (ItemAddress (MAINMENU,FULLMENUNUM (1,5,2))->Flags & CHECKED) ItemAddress (MAINMENU,FULLMENUNUM (1,5,2))->Flags ^= CHECKED;
  3284.  
  3285.                                                      if (! (ItemAddress (MAINMENU,FULLMENUNUM (1,5,1))->Flags & CHECKED)) ItemAddress (MAINMENU,FULLMENUNUM (1,5,1))->Flags |= CHECKED;
  3286.                                                   }
  3287.  
  3288.                                                   if (FUNCTION == Ppc)
  3289.                                                   {
  3290.                                                      if (ItemAddress (MAINMENU,FULLMENUNUM (1,5,0))->Flags & CHECKED) ItemAddress (MAINMENU,FULLMENUNUM (1,5,0))->Flags ^= CHECKED;
  3291.  
  3292.                                                      if (ItemAddress (MAINMENU,FULLMENUNUM (1,5,1))->Flags & CHECKED) ItemAddress (MAINMENU,FULLMENUNUM (1,5,1))->Flags ^= CHECKED;
  3293.  
  3294.                                                      if (! (ItemAddress (MAINMENU,FULLMENUNUM (1,5,2))->Flags & CHECKED)) ItemAddress (MAINMENU,FULLMENUNUM (1,5,2))->Flags |= CHECKED;
  3295.                                                   }
  3296.  
  3297.                                                   ResetMenuStrip (Ilbm->win,MAINMENU);
  3298.                                                }
  3299.  
  3300.                                                else Fail (QueryMandPicError,NULL);
  3301.  
  3302.                                                FreeIFF (Ilbm->ParseInfo.iff);
  3303.                                             }
  3304.                                          }
  3305.  
  3306.                                          PutPointer (Ilbm->win,ZoomPointer,ZPW,ZPH,ZPXO,ZPYO,ZOOM_POINTER);
  3307.  
  3308.                                          break;
  3309.                                       }
  3310.  
  3311.                                       if (MyMenu & SAVEPICTURE_MSG)
  3312.                                       {
  3313.                                          if (FileRequest (Ilbm->win,"Save iff picture","PROGDIR:Pictures",PICTURES_DRAWER,TRUE))
  3314.                                          {
  3315.                                             PutPointer (Ilbm->win,0,0,0,0,0,BUSY_POINTER);
  3316.  
  3317.                                             if (Ilbm->ParseInfo.iff = AllocIFF ())
  3318.                                             {
  3319.                                                MANDChunk.LeftEdge = Ilbm->win->LeftEdge;
  3320.  
  3321.                                                MANDChunk.TopEdge = Ilbm->win->TopEdge;
  3322.  
  3323.                                                MANDChunk.Width = Ilbm->win->Width;
  3324.  
  3325.                                                MANDChunk.Height = Ilbm->win->Height;
  3326.  
  3327.                                                MANDChunk.RMin = RMIN;
  3328.  
  3329.                                                MANDChunk.RMax = RMAX;
  3330.  
  3331.                                                MANDChunk.IMin = IMIN;
  3332.  
  3333.                                                MANDChunk.IMax = IMAX;
  3334.  
  3335.                                                MANDChunk.Iterations = MAX_ITERATIONS + 1L;
  3336.  
  3337.                                                MANDChunk.Special = NULL;
  3338.  
  3339.                                                if (SPREAD) MANDChunk.Special |= SPREAD_BIT;
  3340.  
  3341.                                                if (FUNCTION == Integer) MANDChunk.Special |= INTEGER_BIT;
  3342.  
  3343.                                                if (FUNCTION == Real) MANDChunk.Special |= REAL_BIT;
  3344.  
  3345.                                                if (FUNCTION == Ppc) MANDChunk.Special |= PPC_BIT;
  3346.  
  3347.                                                if (ZMASK & MASK)
  3348.                                                {
  3349.                                                   DrawBorder (Ilbm->wrp,&MYBORDER,0,0);
  3350.  
  3351.                                                   MASK ^= ZMASK;
  3352.                                                }
  3353.  
  3354.                                                if (TMASK & MASK) ShowTitle (Ilbm->scr,FALSE);
  3355.  
  3356.                                                if (SaveMandPic (Ilbm,&SPECIAL_CHUNK,©RIGHT_CHUNK,MYPATH)) Fail (SaveMandPicError,5L);
  3357.  
  3358.                                                if (TMASK & MASK) ShowTitle (Ilbm->scr,TRUE);
  3359.  
  3360.                                                FreeIFF (Ilbm->ParseInfo.iff);
  3361.                                             }
  3362.                                          }
  3363.  
  3364.                                          PutPointer (Ilbm->win,ZoomPointer,ZPW,ZPH,ZPXO,ZPYO,ZOOM_POINTER);
  3365.  
  3366.                                          break;
  3367.                                       }
  3368.  
  3369.                                       if (MyMenu & LOADPALETTE_MSG)
  3370.                                       {
  3371.                                          if (FileRequest (Ilbm->win,"Load palette","PROGDIR:Palettes",PALETTES_DRAWER,FALSE))
  3372.                                          {
  3373.                                             PutPointer (Ilbm->win,0,0,0,0,0,BUSY_POINTER);
  3374.  
  3375.                                             if (Ilbm->ParseInfo.iff = AllocIFF ())
  3376.                                             {
  3377.                                                if (LoadPalette (Ilbm,MYPATH)) Fail (LoadMandPalError,5L);
  3378.  
  3379.                                                if (Ilbm->EHB) GetRGB32 (Ilbm->vp->ColorMap,0L,32L,&(PALETTE [1L]));
  3380.  
  3381.                                                else GetRGB32 (Ilbm->vp->ColorMap,0L,(ULONG) Ilbm->vp->ColorMap->Count,&(PALETTE [1L]));
  3382.  
  3383.                                                FreeIFF (Ilbm->ParseInfo.iff);
  3384.                                             }
  3385.  
  3386.                                             else Fail (NoMem,5L);
  3387.                                          }
  3388.  
  3389.                                          PutPointer (Ilbm->win,ZoomPointer,ZPW,ZPH,ZPXO,ZPYO,ZOOM_POINTER);
  3390.  
  3391.                                          break;
  3392.                                       }
  3393.  
  3394.                                       if (MyMenu & SAVEPALETTE_MSG)
  3395.                                       {
  3396.                                          if (FileRequest (Ilbm->win,"Save palette","PROGDIR:Palettes",PALETTES_DRAWER,TRUE))
  3397.                                          {
  3398.                                             PutPointer (Ilbm->win,0,0,0,0,0,BUSY_POINTER);
  3399.  
  3400.                                             if (Ilbm->ParseInfo.iff = AllocIFF ())
  3401.                                             {
  3402.                                                if (SavePalette (Ilbm,©RIGHT_CHUNK,MYPATH)) Fail (LoadMandPalError,5L);
  3403.  
  3404.                                                FreeIFF (Ilbm->ParseInfo.iff);
  3405.                                             }
  3406.  
  3407.                                             else Fail (NoMem,5L);
  3408.                                          }
  3409.  
  3410.                                          PutPointer (Ilbm->win,ZoomPointer,ZPW,ZPH,ZPXO,ZPYO,ZOOM_POINTER);
  3411.  
  3412.                                          break;
  3413.                                       }
  3414.  
  3415.                                       if (MyMenu & FONTREQ_MSG)
  3416.                                       {
  3417.                                          if (FontRequest (Ilbm->win))
  3418.                                          {
  3419.                                             if (ZMASK & MASK)
  3420.                                             {
  3421.                                                DrawBorder (Ilbm->wrp,&MYBORDER,0,0);
  3422.  
  3423.                                                MASK ^= ZMASK;
  3424.                                             }
  3425.  
  3426.                                             PutPointer (Ilbm->win,0,0,0,0,0,BUSY_POINTER);
  3427.  
  3428.                                             MYBITMAP = CopyBitMap (Ilbm->win,Ilbm->win->LeftEdge,Ilbm->win->TopEdge,Ilbm->win->Width,Ilbm->win->Height);
  3429.  
  3430.                                             Fade (MYILBM.win,PALETTE,25L,1L,TOBLACK);
  3431.  
  3432.                                             CloseDisplay (Ilbm,VINFO);
  3433.  
  3434.                                             if (! MakeDisplay (Ilbm))
  3435.                                             {
  3436.                                                Fail (MakeDisplayError,20L);
  3437.  
  3438.                                                MyMenu = EXIT_MSG;
  3439.  
  3440.                                                break;
  3441.                                             }
  3442.  
  3443.                                             PasteBitMap (MYBITMAP,Ilbm->win,Ilbm->win->Width,Ilbm->win->Height);
  3444.                                          }
  3445.  
  3446.                                          PutPointer (Ilbm->win,ZoomPointer,ZPW,ZPH,ZPXO,ZPYO,ZOOM_POINTER);
  3447.  
  3448.                                          break;
  3449.                                       }
  3450.  
  3451.                                       if (MyMenu & DUMP_MSG)
  3452.                                       {
  3453.                                          ModifyIDCMP (Ilbm->win,NULL);
  3454.  
  3455.                                          ClearMenuStrip (Ilbm->win);
  3456.  
  3457.                                          PutPointer (Ilbm->win,0,0,0,0,0,BUSY_POINTER);
  3458.  
  3459.                                          if (Choice (Ilbm->win,"Print requester","Are you sure ?"))
  3460.                                          {
  3461.                                             WinDump (Ilbm->win);
  3462.                                          }
  3463.  
  3464.                                          PutPointer (Ilbm->win,ZoomPointer,ZPW,ZPH,ZPXO,ZPYO,ZOOM_POINTER);
  3465.  
  3466.                                          ResetMenuStrip (Ilbm->win,MAINMENU);
  3467.  
  3468.                                          ModifyIDCMP (Ilbm->win,IDCMP_STANDARD);
  3469.  
  3470.                                          break;
  3471.                                       }
  3472.  
  3473.                                       if (MyMenu & PREVIEW_MSG)
  3474.                                       {
  3475.                                          if (NewCoords (Ilbm->win,ZOOMLINE [6],ZOOMLINE [3],ZOOMLINE [4],ZOOMLINE [5]))
  3476.                                          {
  3477.                                             ModifyIDCMP (Ilbm->win,NULL);
  3478.  
  3479.                                             ClearMenuStrip (Ilbm->win);
  3480.  
  3481.                                             Preview (Ilbm->win,Ilbm->win->Width,Ilbm->win->Height);
  3482.  
  3483.                                             ResetMenuStrip (Ilbm->win,MAINMENU);
  3484.  
  3485.                                             ModifyIDCMP (Ilbm->win,IDCMP_STANDARD);
  3486.  
  3487.                                             RestoreCoords ();
  3488.                                          }
  3489.  
  3490.                                          break;
  3491.                                       }
  3492.  
  3493.                                       if (MyMenu & COORDS_MSG)
  3494.                                       {
  3495.                                          ModifyIDCMP (Ilbm->win,NULL);
  3496.  
  3497.                                          ClearMenuStrip (Ilbm->win);
  3498.  
  3499.                                          if (ShowCoords (Ilbm->win))
  3500.                                          {
  3501.                                             if (Choice (Ilbm->win,"Rendering requester","Recalculate ?")) MyMenu |= REDRAW_MSG;
  3502.                                          }
  3503.  
  3504.                                          ResetMenuStrip (Ilbm->win,MAINMENU);
  3505.  
  3506.                                          ModifyIDCMP (Ilbm->win,IDCMP_STANDARD);
  3507.                                       }
  3508.  
  3509.                                       if (MyMenu & REDRAW_MSG)
  3510.                                       {
  3511.                                          if (ZMASK & MASK)
  3512.                                          {
  3513.                                             DrawBorder (Ilbm->wrp,&MYBORDER,0,0);
  3514.  
  3515.                                             MASK ^= ZMASK;
  3516.                                          }
  3517.  
  3518.                                          SetMenuStop (Ilbm->win);
  3519.  
  3520.                                          PutPointer (Ilbm->win,0,0,0,0,0,BUSY_POINTER);
  3521.  
  3522.                                          ELAPSEDTIME = DrawFractal (Ilbm->win,(LONG) (Ilbm->win->LeftEdge),(LONG) (Ilbm->win->TopEdge),(LONG) (Ilbm->win->Width) - 1L,(LONG) (Ilbm->win->Height) - 1L);
  3523.  
  3524.                                          PutPointer (Ilbm->win,ZoomPointer,ZPW,ZPH,ZPXO,ZPYO,ZOOM_POINTER);
  3525.  
  3526.                                          SetMenuStart (Ilbm->win);
  3527.  
  3528.                                          ShowTime (Ilbm->win,"Recalculate elapsed time:",ELAPSEDTIME);
  3529.  
  3530.                                          break;
  3531.                                       }
  3532.  
  3533.                                       if (MyMenu & UNDO_MSG)
  3534.                                       {
  3535.                                          if (ZMASK & MASK)
  3536.                                          {
  3537.                                             DrawBorder (Ilbm->wrp,&MYBORDER,0,0);
  3538.  
  3539.                                             MASK ^= ZMASK;
  3540.                                          }
  3541.  
  3542.                                          RestoreCoords ();
  3543.  
  3544.                                          PutPointer (Ilbm->win,0,0,0,0,0,BUSY_POINTER);
  3545.  
  3546.                                          SetMenuStop (Ilbm->win);
  3547.  
  3548.                                          Fade (MYILBM.win,PALETTE,25L,1L,TOBLACK);
  3549.  
  3550.                                          ELAPSEDTIME = DrawFractal (Ilbm->win,(LONG) (Ilbm->win->LeftEdge),(LONG) (Ilbm->win->TopEdge),(LONG) (Ilbm->win->Width) - 1L,(LONG) (Ilbm->win->Height) - 1L);
  3551.  
  3552.                                          PutPointer (Ilbm->win,ZoomPointer,ZPW,ZPH,ZPXO,ZPYO,ZOOM_POINTER);
  3553.  
  3554.                                          SetMenuStart (Ilbm->win);
  3555.  
  3556.                                          ShowTime (Ilbm->win,"Undo elapsed time:",ELAPSEDTIME);
  3557.  
  3558.                                          break;
  3559.                                       }
  3560.  
  3561.                                       if (MyMenu & DRAW_MSG)
  3562.                                       {
  3563.                                          if (ZMASK & MASK)
  3564.                                          {
  3565.                                             DrawBorder (Ilbm->wrp,&MYBORDER,0,0);
  3566.  
  3567.                                             MASK ^= ZMASK;
  3568.                                          }
  3569.  
  3570.                                          if (NewCoords (Ilbm->win,ZOOMLINE [6],ZOOMLINE [3],ZOOMLINE [4],ZOOMLINE [5]))
  3571.                                          {
  3572.                                             MYBITMAP = CopyBitMap (Ilbm->win,ZOOMLINE [6],ZOOMLINE [3],ZOOMLINE [4]-ZOOMLINE [6]+1,ZOOMLINE [5]-ZOOMLINE [3]+1);
  3573.  
  3574.                                             PasteBitMap (MYBITMAP,Ilbm->win,ZOOMLINE [4]-ZOOMLINE [6]+1,ZOOMLINE [5]-ZOOMLINE [3]+1);
  3575.  
  3576.                                             SetMenuStop (Ilbm->win);
  3577.  
  3578.                                             PutPointer (Ilbm->win,0,0,0,0,0,BUSY_POINTER);
  3579.  
  3580.                                             ELAPSEDTIME = DrawFractal (Ilbm->win,(LONG) (Ilbm->win->LeftEdge),(LONG) (Ilbm->win->TopEdge),(LONG) (Ilbm->win->Width) - 1L,(LONG) (Ilbm->win->Height) - 1L);
  3581.  
  3582.                                             PutPointer (Ilbm->win,ZoomPointer,ZPW,ZPH,ZPXO,ZPYO,ZOOM_POINTER);
  3583.  
  3584.                                             SetMenuStart (Ilbm->win);
  3585.  
  3586.                                             ShowTime (Ilbm->win,"Zoom elapsed time:",ELAPSEDTIME);
  3587.                                          }
  3588.  
  3589.                                          break;
  3590.                                       }
  3591.  
  3592.                                       break;
  3593.  
  3594.              case       IDCMP_RAWKEY: if (MyCode == RAW_ESC) MyMenu = EXIT_MSG;
  3595.  
  3596.                                       break;
  3597.  
  3598.              case  IDCMP_CLOSEWINDOW: MyMenu = EXIT_MSG;
  3599.       }
  3600.  
  3601.     } while (! ((MyMenu & EXIT_MSG) || (MyMenu & NEWDISPLAY_MSG)));
  3602.  
  3603.  return MyMenu;
  3604. }
  3605.  
  3606. struct BitMap *CopyBitMap (struct Window *Win,WORD Left,WORD Top,WORD Width,WORD Height)
  3607. {
  3608. struct BitMap *NewBM;
  3609.  
  3610.   NewBM = AllocBitMap ((ULONG) Width,(ULONG) Height,(ULONG) Win->RPort->BitMap->Depth,BMF_INTERLEAVED | BMF_CLEAR,Win->RPort->BitMap);
  3611.  
  3612.   if (NewBM)
  3613.   {
  3614.      if (ZMASK & MASK) DrawBorder (Win->RPort,&MYBORDER,0,0);
  3615.  
  3616.      if (TMASK & MASK) ShowTitle (Win->WScreen,FALSE);
  3617.  
  3618.      BltBitMap (Win->RPort->BitMap,(LONG) Left,(LONG) Top,NewBM,0,0,(LONG) Width,(LONG) Height,0xC0,0xFF,NULL);
  3619.  
  3620.      if (TMASK & MASK) ShowTitle (Win->WScreen,TRUE);
  3621.  
  3622.      if (ZMASK & MASK) DrawBorder (Win->RPort,&MYBORDER,0,0);
  3623.  
  3624.      MASK |= BMASK;
  3625.   }
  3626.  
  3627.   return NewBM;
  3628. }
  3629.  
  3630. BOOL PasteBitMap (struct BitMap *SrcBM,struct Window *DstWin,WORD SrcWidth,WORD SrcHeight)
  3631. {
  3632. BOOL Success = FALSE;
  3633.  
  3634. ULONG DstWinWidth,DstWinHeight;
  3635.  
  3636. struct BitMap *TmpBM;
  3637.  
  3638.   if (SrcBM)
  3639.   {
  3640.      DstWinWidth = (ULONG) ((DstWin->Flags & WFLG_GIMMEZEROZERO) ? DstWin->GZZWidth : DstWin->Width);
  3641.  
  3642.      DstWinHeight = (ULONG) ((DstWin->Flags & WFLG_GIMMEZEROZERO) ? DstWin->GZZHeight : DstWin->Height);
  3643.  
  3644.      TmpBM = AllocBitMap ((ULONG) DstWinWidth,(ULONG) DstWinHeight,(ULONG) DstWin->RPort->BitMap->Depth,BMF_INTERLEAVED | BMF_CLEAR,DstWin->RPort->BitMap);
  3645.  
  3646.      if (TmpBM)
  3647.      {
  3648.         BSA.bsa_SrcWidth    = SrcWidth;
  3649.         BSA.bsa_SrcHeight   = SrcHeight;
  3650.         BSA.bsa_XSrcFactor  = SrcWidth;
  3651.         BSA.bsa_YSrcFactor  = SrcHeight;
  3652.         BSA.bsa_XDestFactor = DstWinWidth;
  3653.         BSA.bsa_YDestFactor = DstWinHeight;
  3654.         BSA.bsa_SrcBitMap   = SrcBM;
  3655.         BSA.bsa_DestBitMap  = TmpBM;
  3656.  
  3657.         BitMapScale (&BSA);
  3658.  
  3659.         BltBitMapRastPort (TmpBM,0,0,DstWin->RPort,0,0,DstWinWidth,DstWinHeight,0xC0);
  3660.  
  3661.         FreeBitMap (TmpBM);
  3662.  
  3663.         Success = TRUE;
  3664.      }
  3665.  
  3666.      FreeBitMap (SrcBM);
  3667.  
  3668.      MASK ^= BMASK;
  3669.   }
  3670.  
  3671.   return Success;
  3672. }
  3673.  
  3674. LONG WinDump (struct Window *Win)
  3675. {
  3676. struct IODRPReq *IODrp;
  3677. struct MsgPort  *PrinterPort;
  3678. struct ViewPort *Vp;
  3679.  
  3680. LONG Error = PDERR_BADDIMENSION;
  3681.  
  3682.   if (! Win) return Error;
  3683.  
  3684.   if (PrinterPort = CreatePort (0,0))
  3685.   {
  3686.      if (IODrp = (struct IODRPReq *) CreateExtIO (PrinterPort,sizeof (struct IODRPReq)))
  3687.      {
  3688.         if (! (Error = OpenDevice ("printer.device",0,(struct IORequest *) IODrp,0)))
  3689.         {
  3690.            Vp = ViewPortAddress (Win);
  3691.  
  3692.            IODrp->io_Command   = PRD_DUMPRPORT;
  3693.            IODrp->io_RastPort  = Win->RPort;
  3694.            IODrp->io_ColorMap  = Vp->ColorMap;
  3695.            IODrp->io_Modes     = (ULONG) Vp->Modes;
  3696.            IODrp->io_SrcX      = Win->LeftEdge;
  3697.            IODrp->io_SrcY      = Win->TopEdge;
  3698.            IODrp->io_SrcWidth  = Win->Width;
  3699.            IODrp->io_SrcHeight = Win->Height;
  3700.            IODrp->io_DestCols  = 0;
  3701.            IODrp->io_Special   = SPECIAL_FULLCOLS | SPECIAL_ASPECT;
  3702.  
  3703.            Error = DoIO ((struct IORequest *)IODrp);
  3704.  
  3705.            CloseDevice ((struct IORequest *)IODrp);
  3706.         }
  3707.  
  3708.         DeleteExtIO ((struct IORequest *)IODrp);
  3709.      }
  3710.  
  3711.      DeletePort (PrinterPort);
  3712.   }
  3713.  
  3714.   return Error;
  3715. }
  3716.  
  3717. ULONG Fail (UBYTE *ErrorString,ULONG ErrorLevel)
  3718. {
  3719.   DisplayAlert (RECOVERY_ALERT,ErrorString,30);
  3720.  
  3721.   RETURNVALUE = ErrorLevel;
  3722.  
  3723.   return RETURNVALUE;
  3724. }
  3725.  
  3726. LONG main (ULONG Argc,UBYTE **Argv)
  3727. {
  3728. UBYTE **ToolTypes;
  3729.  
  3730.   if ((ToolTypes = ArgArrayInit (Argc,Argv)))
  3731.   {
  3732.      MYILBM.Bmhd.w       = ArgInt (ToolTypes,"SCREENWIDTH",DEF_WIDTH);
  3733.      MYILBM.Bmhd.h       = ArgInt (ToolTypes,"SCREENHEIGHT",DEF_HEIGHT);
  3734.      MYILBM.Bmhd.nPlanes = ArgInt (ToolTypes,"SCREENDEPTH",MAX_DEPTH);
  3735.  
  3736.      sscanf (ArgString (ToolTypes,"SCREENMODE",DEF_MONITORSTR),"%lx",&MYILBM.camg);
  3737.  
  3738.      sscanf (ArgString (ToolTypes,"REALMIN",INIT_DEF_RMINSTR),"%lf",&RMIN);
  3739.      sscanf (ArgString (ToolTypes,"REALMAX",INIT_DEF_RMAXSTR),"%lf",&RMAX);
  3740.      sscanf (ArgString (ToolTypes,"IMAGMIN",INIT_DEF_IMINSTR),"%lf",&IMIN);
  3741.      sscanf (ArgString (ToolTypes,"IMAGMAX",INIT_DEF_IMAXSTR),"%lf",&IMAX);
  3742.  
  3743.      strncpy (MYFONTSTRUCT.ta_Name,ArgString (ToolTypes,"FONTNAME",DEF_FONTNAME),24);
  3744.  
  3745.      MYFONTSTRUCT.ta_YSize = ArgInt (ToolTypes,"FONTSIZE",DEF_FONTSIZE);
  3746.  
  3747.      PRIORITY = ArgInt (ToolTypes,"STARTPRI",DEF_STARTPRI);
  3748.  
  3749.      ArgArrayDone ();
  3750.  
  3751.      MYILBM.Bmhd.w = MIN (MAX_WIDTH,MAX (MYILBM.Bmhd.w,DEF_WIDTH));
  3752.  
  3753.      MYILBM.Bmhd.h = MIN (MAX_HEIGHT,MAX (MYILBM.Bmhd.h,DEF_HEIGHT));
  3754.  
  3755.      MYILBM.Bmhd.nPlanes = MIN (MAX_DEPTH,MAX (MYILBM.Bmhd.nPlanes,MIN_DEPTH));
  3756.  
  3757.      MYFONTSTRUCT.ta_YSize = MIN (MAX_FONTSIZE,MAX (MYFONTSTRUCT.ta_YSize,MIN_FONTSIZE));
  3758.  
  3759.      PRIORITY = MIN (5,MAX (PRIORITY,-5));
  3760.   }
  3761.  
  3762.   else
  3763.   {
  3764.      MYILBM.camg = DEF_MONITOR;
  3765.  
  3766.      MYILBM.Bmhd.w = DEF_WIDTH;
  3767.  
  3768.      MYILBM.Bmhd.h = DEF_HEIGHT;
  3769.  
  3770.      MYILBM.Bmhd.nPlanes = (CheckGFX () ? MAX_DEPTH : DEF_DEPTH);
  3771.   }
  3772.  
  3773.   if (ModeNotAvailable (MYILBM.camg)) MYILBM.camg = ModeFallBack (MYILBM.camg,MYILBM.Bmhd.w,MYILBM.Bmhd.h,MYILBM.Bmhd.nPlanes);
  3774.  
  3775.   if (GetMaxPlanes (MYILBM.camg) < MIN_DEPTH)
  3776.   {
  3777.      Fail (OpenDisplayError,20L);
  3778.  
  3779.      exit (RETURNVALUE);
  3780.   }
  3781.  
  3782.   PALETTE = (CheckGFX () ? COLORS_AGA : COLORS_ECS);
  3783.  
  3784.   if ((RMIN >= RMAX) || (IMIN >= IMAX))
  3785.   {
  3786.     DEF_RMIN = INIT_DEF_RMIN;
  3787.  
  3788.     DEF_RMAX = INIT_DEF_RMAX;
  3789.  
  3790.     DEF_IMIN = INIT_DEF_IMIN;
  3791.  
  3792.     DEF_IMAX = INIT_DEF_IMAX;
  3793.   }
  3794.  
  3795.   else
  3796.   {
  3797.     DEF_RMIN = RMIN;
  3798.  
  3799.     DEF_RMAX = RMAX;
  3800.  
  3801.     DEF_IMIN = IMIN;
  3802.  
  3803.     DEF_IMAX = IMAX;
  3804.   }
  3805.  
  3806.   SaveCoords ();
  3807.  
  3808.   MYILBM.ParseInfo.propchks = IlbmProps;
  3809.  
  3810.   MYILBM.ParseInfo.collectchks = IlbmCollects;
  3811.  
  3812.   MYILBM.ParseInfo.stopchks = IlbmStops;
  3813.  
  3814.   MYILBM.Bmhd.pageWidth  = 0;
  3815.  
  3816.   MYILBM.Bmhd.pageHeight = 0;
  3817.  
  3818.   MYILBM.stype = CUSTOMSCREEN | SCREENQUIET;
  3819.  
  3820.   MYILBM.TBState = TMASK & MASK;
  3821.  
  3822.   MYILBM.ucliptype = OSCAN_TEXT;
  3823.  
  3824.   MYILBM.EHB = TRUE;
  3825.  
  3826.   MYILBM.Autoscroll = TRUE;
  3827.  
  3828.   MYILBM.IFFPFlags = NULL;
  3829.  
  3830.   FUNCTION = Integer;
  3831.  
  3832.   H_LINE = HLine_S;
  3833.  
  3834.   V_LINE = VLine_S;
  3835.  
  3836.   if (MAINMENU = CreateMenus (ProgMenu,TAG_END))
  3837.   {
  3838.      if (MYILBM.Bmhd.nPlanes < 6)
  3839.      {
  3840.         MAX_ITERATIONS = 63;
  3841.  
  3842.         ItemAddress (MAINMENU,FULLMENUNUM (1,2,4))->Flags ^= CHECKED;
  3843.  
  3844.         ItemAddress (MAINMENU,FULLMENUNUM (1,2,0))->Flags |= CHECKED;
  3845.      }
  3846.  
  3847.      if (CheckEHB (MYILBM.camg))
  3848.      {
  3849.         H_LINE = HLine_S_EHB;
  3850.  
  3851.         V_LINE = VLine_S_EHB;
  3852.      }
  3853.  
  3854.      if (CheckFPU (SysBase->AttnFlags) & FPU_68K)
  3855.      {
  3856.         FUNCTION = Real;
  3857.  
  3858.         ItemAddress (MAINMENU,FULLMENUNUM (1,5,1))->Flags ^= NM_ITEMDISABLED;
  3859.  
  3860.         ItemAddress (MAINMENU,FULLMENUNUM (1,5,0))->Flags ^= CHECKED;
  3861.  
  3862.         ItemAddress (MAINMENU,FULLMENUNUM (1,5,1))->Flags |= CHECKED;
  3863.      }
  3864.  
  3865.      if (CheckFPU (SysBase->AttnFlags) & FPU_PPC)
  3866.      {
  3867.         FUNCTION = Ppc;
  3868.  
  3869.         ItemAddress (MAINMENU,FULLMENUNUM (1,5,2))->Flags ^= NM_ITEMDISABLED;
  3870.  
  3871.         if (ItemAddress (MAINMENU,FULLMENUNUM (1,5,0))->Flags == CHECKED) ItemAddress (MAINMENU,FULLMENUNUM (1,5,0))->Flags ^= CHECKED;
  3872.  
  3873.         if (ItemAddress (MAINMENU,FULLMENUNUM (1,5,1))->Flags == CHECKED) ItemAddress (MAINMENU,FULLMENUNUM (1,5,1))->Flags ^= CHECKED;
  3874.  
  3875.         ItemAddress (MAINMENU,FULLMENUNUM (1,5,2))->Flags |= CHECKED;
  3876.      }
  3877.  
  3878.      if (PRIORITY < 0L) ItemAddress (MAINMENU,FULLMENUNUM (1,3,5 + PRIORITY))->Flags |= CHECKED;
  3879.  
  3880.      else
  3881.      {
  3882.        if (PRIORITY > 0L) ItemAddress (MAINMENU,FULLMENUNUM (1,3,7 + PRIORITY))->Flags |= CHECKED;
  3883.  
  3884.        else ItemAddress (MAINMENU,FULLMENUNUM (1,3,6))->Flags |= CHECKED;
  3885.      }
  3886.  
  3887.      SetTaskPri (FindTask (NULL),PRIORITY);
  3888.  
  3889.      if (CURRENT_MAX_COLORS = MakeDisplay (&MYILBM))
  3890.      {
  3891.         CURRENT_MAX_COLORS -= RESERVED_PENS;
  3892.  
  3893.         MANDChunk.LeftEdge = MYILBM.win->LeftEdge;
  3894.  
  3895.         MANDChunk.TopEdge = MYILBM.win->TopEdge;
  3896.  
  3897.         MANDChunk.Width = MYILBM.win->Width;
  3898.  
  3899.         MANDChunk.Height = MYILBM.win->Height;
  3900.  
  3901.         MANDChunk.RMin = RMIN;
  3902.  
  3903.         MANDChunk.RMax = RMAX;
  3904.  
  3905.         MANDChunk.IMin = IMIN;
  3906.  
  3907.         MANDChunk.IMax = IMAX;
  3908.  
  3909.         MANDChunk.Iterations = MAX_ITERATIONS + 1L;
  3910.  
  3911.         MANDChunk.Special = NULL;
  3912.  
  3913.         SPECIAL_CHUNK.ch_Data = &MANDChunk;
  3914.  
  3915.         PutPointer (MYILBM.win,0,0,0,0,0,BUSY_POINTER);
  3916.  
  3917.         ELAPSEDTIME = DrawFractal (MYILBM.win,(LONG) (MYILBM.win->LeftEdge),(LONG) (MYILBM.win->TopEdge),(LONG) (MYILBM.win->Width) - 1L,(LONG) (MYILBM.win->Height) - 1L);
  3918.  
  3919.         PutPointer (MYILBM.win,ZoomPointer,ZPW,ZPH,ZPXO,ZPYO,ZOOM_POINTER);
  3920.  
  3921.         SetMenuStart (MYILBM.win);
  3922.  
  3923.         ShowTime (MYILBM.win,"Rendering elapsed time:",ELAPSEDTIME);
  3924.  
  3925.         ModifyIDCMP (MYILBM.win,NULL);
  3926.  
  3927.         ClearMenuStrip (MYILBM.win);
  3928.  
  3929.         About (MYILBM.win);
  3930.  
  3931.         ResetMenuStrip (MYILBM.win,MAINMENU);
  3932.  
  3933.         ModifyIDCMP (MYILBM.win,IDCMP_STANDARD);
  3934.  
  3935.         do
  3936.         {
  3937.           while (HandleEvents (&MYILBM) & NEWDISPLAY_MSG)
  3938.           {
  3939.                 if (SMRequest (&MYILBM))
  3940.                 {
  3941.                    if (ZMASK & MASK)
  3942.                    {
  3943.                       DrawBorder (MYILBM.wrp,&MYBORDER,0,0);
  3944.  
  3945.                       MASK ^= ZMASK;
  3946.                    }
  3947.  
  3948.                    MYBITMAP = CopyBitMap (MYILBM.win,MYILBM.win->LeftEdge,MYILBM.win->TopEdge,MYILBM.win->Width,MYILBM.win->Height);
  3949.  
  3950.                    Fade (MYILBM.win,PALETTE,25L,1L,TOBLACK);
  3951.  
  3952.                    CloseDisplay (&MYILBM,VINFO);
  3953.  
  3954.                    MYILBM.Bmhd.pageWidth  = 0;
  3955.  
  3956.                    MYILBM.Bmhd.pageHeight = 0;
  3957.  
  3958.                    CURRENT_MAX_COLORS = MakeDisplay (&MYILBM);
  3959.  
  3960.                    if (CURRENT_MAX_COLORS)
  3961.                    {
  3962.                       CURRENT_MAX_COLORS -= RESERVED_PENS;
  3963.  
  3964.                       PasteBitMap (MYBITMAP,MYILBM.win,(WORD) GetBitMapAttr (MYBITMAP,BMA_WIDTH),(WORD) GetBitMapAttr (MYBITMAP,BMA_HEIGHT));
  3965.  
  3966.                       if (CheckEHB (MYILBM.camg))
  3967.                       {
  3968.                          if (SPREAD == FALSE)
  3969.                          {
  3970.                             H_LINE = HLine_R_EHB;
  3971.  
  3972.                             V_LINE = VLine_R_EHB;
  3973.                          }
  3974.  
  3975.                          else
  3976.                          {
  3977.                             H_LINE = HLine_S_EHB;
  3978.  
  3979.                             V_LINE = VLine_S_EHB;
  3980.                          }
  3981.                       }
  3982.  
  3983.                       else
  3984.                       {
  3985.                          if (SPREAD == FALSE)
  3986.                          {
  3987.                             H_LINE = HLine_R;
  3988.  
  3989.                             V_LINE = VLine_R;
  3990.                          }
  3991.  
  3992.                          else
  3993.                          {
  3994.                             H_LINE = HLine_S;
  3995.  
  3996.                             V_LINE = VLine_S;
  3997.                          }
  3998.                       }
  3999.  
  4000.                       if (Choice (MYILBM.win,"Rendering requester","Screen propreties are changed.\nImage and colors can be inaccurate.\n\nRecalculate ?"))
  4001.                       {
  4002.                          SetMenuStop (MYILBM.win);
  4003.  
  4004.                          PutPointer (MYILBM.win,0,0,0,0,0,BUSY_POINTER);
  4005.  
  4006.                          ELAPSEDTIME = DrawFractal (MYILBM.win,(LONG) (MYILBM.win->LeftEdge),(LONG) (MYILBM.win->TopEdge),(LONG) (MYILBM.win->Width) - 1L,(LONG) (MYILBM.win->Height) - 1L);
  4007.  
  4008.                          PutPointer (MYILBM.win,ZoomPointer,ZPW,ZPH,ZPXO,ZPYO,ZOOM_POINTER);
  4009.  
  4010.                          SetMenuStart (MYILBM.win);
  4011.  
  4012.                          ShowTime (MYILBM.win,"Rendering elapsed time:",ELAPSEDTIME);
  4013.                       }
  4014.                   }
  4015.  
  4016.                   else
  4017.                   {
  4018.                          Fail (MakeDisplayError,20L);
  4019.  
  4020.                          break;
  4021.                   }
  4022.                 }
  4023.           }
  4024.  
  4025.           if (RETURNVALUE >= 20L) break;
  4026.  
  4027.         } while (! Choice (MYILBM.win,"Exit requester","Are you sure ?"));
  4028.  
  4029.         if (BMASK & MASK) FreeBitMap (MYBITMAP);
  4030.      }
  4031.  
  4032.      else Fail (MakeDisplayError,20L);
  4033.  
  4034.      Fade (MYILBM.win,PALETTE,50L,1L,TOBLACK);
  4035.  
  4036.      CloseDisplay (&MYILBM,VINFO);
  4037.  
  4038.      FreeMenus (MAINMENU);
  4039.   }
  4040.  
  4041.   else Fail (MenuError,20L);
  4042.  
  4043.   exit (RETURNVALUE);
  4044. }
  4045.